Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Решить задачу Pascal
В массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.

Ответ оставил Гость

Var
A:array[1..15]of integer;
i:integer;
Begin
Write(До:    );
For i:= 1 to 15 do
 Begin
 A[i]:=random(15)+1;
 Write(A[i], );
 if A[i] mod 3 = 0 then A[i]:=0
 End;
WriteLn;
Write(После: );
For i:= 1 to 15 do
 Write(A[i], )
End.