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

Question

Информатика

Мирра

2 ноября, 01:36

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

+3

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