В нижеследующей таблице (табл. 1) даны полугодовые доходы (в национальной валюте) компании, имеющей магазины в крупных городах. Алгоритм заданий:1. Наберите таблицу в электронной таблице.2. Отформатируйте таблицу.3. Посчитайте полугодовой общий и средний доход магазина по каждому городу.4. Посчитайте полугодовой общий и средний доход магазина по каждому городу.5. Используя фильтр, представьте данные за март месяц по магазинам с доходами свыше 1 млн тенге.6. Определите города, где доход магазинов за июнь месяц не превышает 500 тыс. тенге.7. Расположите, применяя сортировку, средний доход магазинов по результатам шести месяцев от наибольшего дохода к наименьшему.​

Var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>7 then begin a[i]:=7; k+=1; end;
end;
writeln(k);
for i:=0 to n-1 do
write(a[i],' ');
end.

var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
read(a[i]);
p*=a[i];
end;
writeln(p);
end.

var a:array of integer;
i,sr,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
sr+=a[i];
end;
writeln(sr/n:3:2);
end.

var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>0 then k+=1;
end;
writeln(k);
end.

var a:array of integer;
n,i,k1,k2:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if odd(a[i]) then k2+=1
else k1+=1;
end;
writeln(k1,' ',k2);
end.