Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Заменить все его минимальные элементы число 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.