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

maksalina2 maksalina2    1   14.08.2019 07:50    0

Ответы
mariaponomarev1 mariaponomarev1  04.10.2020 18:09
Begin
for i:=1 to 30 do
a[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 do
if (a[i]>0) and (a[i]<=k) then kol:=kol+1;
writeln(kol);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика