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]
Var ar:array[1..2*n] of integer; j,a,k,i,t:integer; begin write('A:'); readln(a); writeln('Array:'); for i:=1 to n do readln(ar[i]); j:=1; k:=n; while j<>k do begin if ((ar[j]>=0) and (ar[j+1]>=0)) or ((ar[j]<=0) and (ar[j+1]<=0)) then begin t:=ar[k]; for i:=k-1 downto j do ar[i+1]:=ar[i]; ar[j+1]:=a; inc(k); j:=j+2; ar[k]:=t; end else inc(j); end; writeln('Final array:'); for i:=1 to k do write(ar[i]:4); end.
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]