В массиве случайных чисел найти сумму и количество элементов значение которых больше -3 но меньше 20
Ответы
Ответ:
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.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var s := a.Where(p -> p.InRange(-2, 19));
Writeln('Сумма ', s.Sum, ', кол-во ', s.Count)
end.
![](https://st.uroker.com/files/ca7/ca716e918285f39cff8df94e8b32d461.jpg)