Program array15numbers; var a:array [1..15] of integer; b:array [1..15] of real; i:integer; begin for i:=1 to 15 do begin a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля} writeln(a[i]); {чтобы увидеть созданный массив} end; writeln(); {нужен, чтобы сделать отступ} for i:=1 to 15 do begin if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления} begin b[i]:=a[i]*3; end else begin b[i]:=a[i]/2; end; writeln(b[i]); end; end.
Остались вопросы? - спрашивай в комментах. Нужно более подробное объяснение - пиши в лс vkcom/ilyahard
Носи́тель информа́ции (информацио́нный носи́тель) — любойматериальный объект или среда[неизвестный термин] , содержащий (несущий) информацию (И длительное время сохранять в своей структуре занесённую в/на него информацию — камень,дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченнымслоем (в бобинах и кассетах), пластик со специальными свойствами (для оптической записи И — CD, DVDи т. д.), ЭМИ (электромагнитное излучение) и т. д. и т. п.Носителем информации может быть любой объект, с которого возможно (но не обязательно) чтениеимеющейся (записанной) информации.Зачастую сам носитель информации помещается в защитную оболочку, повышающую его сохранность и,соответственно, надёжность сохранения И (к примеру: бумажные листы — в обложку, микросхему памяти —в пластик (смарт-карта), магнитную ленту — в корпус и т. д.).Носители информации в быту, науке (библиотеки), технике (скажем, для нужд связи), общественной жизни(СМИ) применяются для: (распространения)создания произведений компьютерного искусства
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.
Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard