Дан массив целых чисел, состоящий из 30 элементов. заполнить его с клавиатуры. найти:
1. сумму отрицательных элементов.
2. найти количество тех элементов, значения которых положительны и не превосходят рдан массив целых чисел, состоящий из азмер заданного числа а.
без sum.
Программа на паскале:
const n=30;
var a: array[1..n] of integer;
p,s,k,i: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
write('p = ');
readln(p);
s:=0; k:=0;
for i:=1 to n do
begin
if a[i]<0 then s:=s+a[i];
if (a[i]>0)and(a[i]<p) then k:=k+1;
end;
writeln('s = ',s,' k = ',k);
end.
Пример (для n=5):
Исходный массив:
a[1]=4
a[2]=-7
a[3]=8
a[4]=-5
a[5]=3
p = 6
s = -12 k = 2