• Найти наибольший среди элементов массива А(10), остальные обнулить

Ответы 1

  •  Program Z_n;var a:array[1..10] of integer;i,m:integer;BeginRandomize;Write('Исходный массив: ');m:=-1000;For i:=1 to 10 do begina[i]:=Random(50);Write(a[i],' ');if a[i]>m then m:=a[i];end;writeln;Write('Массив после обработки: ');For i:=1 to 10 do beginif a[i]<>m then a[i]:=0;Write(a[i],' ');end;writeln;end.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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