Дан массив из 10 элементов, которые заполняются случайным образом. Найти: а) наименьший элемент

б) сумму не положительных элементов

в) произведение элементов, кратных 3.

Question

Информатика

Аврелиан

22 декабря, 02:09

Дан массив из 10 элементов, которые заполняются случайным образом. Найти: а) наименьший элемент

б) сумму не положительных элементов

в) произведение элементов, кратных 3.

+1

Ответы (1)

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

Максюша · Answer 1

я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем.

a[10], i, min, s, p:integer

randomize

for i=1 to 10 do

a[i]:=random (101) ;

min:=a[i];

s:=0

p:=1

for i=1 to 10 do begin

if a[i]
min:=a[i];

if a[i]<0 then

s:=s+a[i];

if a[i] mod 3 = 0 then

p:=p*a[i];

end;

write ('minimum=', min, ' summ=', s, ' umnosenie=', p) ;

end.