Дан массив целых чисел,все элементы кратные числу 5,заменить на 0.
Дан массив целых чисел,все элементы кратные числу 5,заменить на 0.
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы