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