Дан массив из 10 элементов,которые заполняются случайным образом.Найти: а)наименьший элемент
б)сумму не положительных элементов
в)произведение элементов,кратных 3.
я сделал рандомные числа от 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 then
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.
НАЧ
A=23+24
A=A*57
A=A/3
PRINT(A)
КОН.
Это Микрофон если что, странно это не знать)