Четные числа делит на два, а нечетные - умножается на три;

Question

Информатика

Гера

2 мая, 05:26

Четные числа делит на два, а нечетные - умножается на три;

+1

Ответы (1)

Знаете ответ на вопрос?

Исай · 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.