Дан массив целых чисел, все элементы кратные числу 5, заменить на 0.

Question

Информатика

Захар

4 августа, 00:19

Дан массив целых чисел, все элементы кратные числу 5, заменить на 0.

+4

Ответы (1)

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

Иваня · Answer 1

const max = 99;

var a:array[0 ... max] of integer;

var i:integer;

begin

randomize;

for i:=1 to max do

a[i]:=random (5001) ;

for i:=1 to max do begin

if ((a[i] mod 5) = 0) then a[i]:=0;

end;

for i:=1 to max do

writeln (a[i]) ;

readln;

end.