Question

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

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.