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

Question

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

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

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

Answer 1

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;<br>end.