Question

Помогите Решить информатику (Паскаль )
Четные числа делит на два , а нечетные -умножается на три;

Answer 1

uses crt; var a: array [1..15] of integer;     i: integer; begin writeln('Дан массив'); for i:=1 to 15 do     begin     a[i]:=random(41)-20;     write(a[i]:5);     end; writeln; writeln('Преобразованный массив'); for i:=1 to 15 do     if a[i] mod 2=0 then write(a[i]/2:5:1)        else write(a[i]*3:5); end.

Answer 2

uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end.