Усилитель слуха
очки
протезы
//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:
5
1
5
-1
-2
4
5
6
Пример вывода:
Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
program nnn;
var
a:array[1..30] of integer;
kol,sum,i: integer;
st: real;
begin
writeln('Вводите температуру за 30 дней ноября');
for i:=1 to 30 do
begin
readln(a[i]);
if a[i]<0
then begin
sum:= sum + a[i];
kol:= kol + 1;
end;
end;
st:= sum / kol;
writeln('Средняя температура заморозков за ноябрь: ',st:0:1);
end.
Var m,n,i,j:longint;
begin
readln(n,m);
if m > n then begin
for i:= n to m do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end else begin
for i:= m to n do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end;
end.