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