Дан массив, размерность 15. Элементы, кратные 3, увеличить в 2 раза. Нужно в Паскале программу составить, 9 класс.

Question

Информатика

Нида

9 сентября, 13:20

Дан массив, размерность 15. Элементы, кратные 3, увеличить в 2 раза. Нужно в Паскале программу составить, 9 класс.

+2

Ответы (1)

Знаете ответ?

Димитриан · Answer 1

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

i:integer;

Begin

For i: = 1 to 15 do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ') ;

if A[i] mod 3 = 0 then A[i]:=A[i]*2;

End;

WriteLn;

For i: = 1 to 15 do

Write (A[i],' ')

End.