Д/З

program Primer7_3; 

var A:array[1..15] of integer; 

n, i:integer; 

begin 

write('введите количество чисел (<=30) '); 

read(n); 

for i:=1 to n do { заполнение массива случайными числами } 

A[i]:=-20+random(41); { на промежутке [–20, 20] } 

for i:=1 to n do write(A[i]:4); { вывод элементов до замены } 

writeln; 

for i:=1 to n do 

if A[i] mod 2<>0 then A[i]:=A[i]*3 else A[i]:=roundA[i]/2 ; { замена четных чисел } 

for i:=1 to n do write(A[i]:4); { вывод элементов после замены } 

end.


program Primer7_3;
var A:array[1..5] of integer;
n, i:integer;
begin
write('введите количество чисел (<=5) ');
read(n);
for i:=1 to 5 do write(A[i]:4); { вывод элементов до замены }
writeln;
for i:=1 to n do
if A[i] mod 2<>0 then A[i]:=A[i]*3 else A[i]:=roundA[i]/2 ; { замена четных чисел }
for i:=1 to n do write(A[i]:4); { вывод элементов после замены }
end.