Помогите Решить информатику (Паскаль)

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

Question

Информатика

Марго

1 декабря, 01:37

Помогите Решить информатику (Паскаль)

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

+2

Ответы (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.

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

Помогите Решить информатику (Паскаль)

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