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

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

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years