Подскажите решение для по программированию в паскале - вопрос №658382011 от KaraKiller 01.03.2021 05:03

Question

Информатика: Подскажите решение для по программированию в паскале : ) (11 класс, тема: массивы ) дан массив целых чисел, состоящий из 30 элементов. заполнить его с датчика случайных чисел. hайти: a) сумму отрицательных элементов; б) количество тех элементов, значения которых положительны и не превосходят заданного числа а.

KaraKiller · Answer

Beginfor i:=1 to 30 doa[i]:=random(50)-20;for i:=1 to 30 do if a[i] 0 then sum:=sum+a[i];writeln(sum);readln(k);for i:=1 to 30 doif (a[i] 0) and (a[i] =k) then kol:=kol+1;writeln(kol);end....