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

Есть ответ
17.12.2022
272

Ответ


я сделал рандомные числа от 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]


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.