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

Question

Информатика

Мирра

17 апреля, 02:29

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

+1

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