Сформировать одномерный массив из 15 элементов заменить все его минимальные элементы число 0. вывести новый массив на экран

Alla11111111111 Alla11111111111    2   20.05.2019 00:00    0

Ответы
vshapovalova21 vshapovalova21  01.10.2020 00:17

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика