Четные числа делит на два , а нечетные -умножается на три;
Ответы на вопрос
Ответил evgeniysavin0
0
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.
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.
Новые вопросы