Nafelans
7 год назад
Подскажите пожалуйста решение для задачи по программированию в Паскале :)
(11 класс, тема: "Массивы")
Дан массив целых чисел, состоящий из 30 элементов. заполнить его с помощью датчика случайных чисел. Hайти:
a) сумму отрицательных элементов;
б) количество тех элементов, значения которых положительны и не превосходят заданного числа А.
ОТВЕТЫ
Paosmatgy
Jul 18, 2019
Begin
for i:=1 to 30 do
a[i]:=random(50)-20;
for i:=1 to 30 do
if a[i]lt;0 then sum:=sum+a[i];
writeln(sum);
readln(k);
for i:=1 to 30 do
if (a[i]gt;0) and (a[i]lt;=k) then kol:=kol+1;
writeln(kol);
end.
for i:=1 to 30 do
a[i]:=random(50)-20;
for i:=1 to 30 do
if a[i]lt;0 then sum:=sum+a[i];
writeln(sum);
readln(k);
for i:=1 to 30 do
if (a[i]gt;0) and (a[i]lt;=k) then kol:=kol+1;
writeln(kol);
end.
185
Смежные вопросы:
