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

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

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

Question

Информатика

Лаврушка

7 марта, 07:55

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

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

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

+3

Ответы (1)

Знаете ответ?

Ксенья · 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;

end.

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

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

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

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