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

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

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

Question

Информатика

Александринка

20 декабря, 17:24

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

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

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

+5

Ответы (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.

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