const
N = 10;
var
mas: array [1..N] of integer;
sum,count,i:integer;
begin
for i:=1 to N do begin
mas[i] := random(51)-10;
end;
writeln('Массив: ');
for i:=1 to N do begin
write(mas[i] + ' ');
end;
writeln();
for i:=1 to N do begin
if (mas[i] > -3) and (mas[i] < 20) then begin
sum += mas[i];
count+=1;
end;
end;
writeln('Сумма элементов массива, значение которых больше -3 но меньше 20 = ' + sum);
writeln('Их количество = ' + count);
end.
Объяснение:
Pascal.
