• Сформировать одномерный массив из 15 элементов

    Заменить все его минимальные элементы число 0.

    Вывести новый массив на экран

Ответы 1

  • program massiv;var a:array[1..15] of integer;i:integer;beginrandomize;for i:=1 to 15 do begina[i]:=random(50)-25;if a[i]<0 then a[i]:=0; writeln('a[',i,']=',a[i]); end;end.

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

Войти через Google

или

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

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

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