Сформировать одномерный массив из 15 элементов
Заменить все его минимальные элементы число 0.
Вывести новый массив на экран
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад
10 лет назад