var a: array[1..nmax] of integer; i, n, j, count: integer; mini, maxi: integer; min, max: real; temp: real; sum, product, harmonic: real; k: integer;
begin {ввод массива} n := nmax; if handsfree then n := random(nmax - 5) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(random_max - random_min) + random_min; write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; product := 1; for i := 1 to n do begin sum := sum + a[i]; if a[i] mod 3 = 0 then {если нужен фильтр} product := product * a[i]; end; writeln('1) sum = ', sum); writeln('2) product = ', product);
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; count := 0; for i := 1 to n do begin if i mod 2 = 1 then {если нужен фильтр} begin count := count + 1; sum := sum + a[i]; end; end; writeln('3) average (selected) = ', sum / count);
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; product := 1; count := 0; for i := 1 to n do begin if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; if a[i] < 0 then {если нужен фильтр} product := product * a[i]; if a[i] mod 2 = 1 then {если нужен фильтр} count := count + 1; end; writeln('4) count = ', count); writeln('4) sum = ', sum); writeln('4) product = ', product); end.
1) var n,a,kol,sum,i:int64; begin read(n); for i:=1 to n do begin read(a); if (i mod 2)=1 then begin inc(sum,a); inc(kol); end; end; writeln(sum/kol); end. 2)var n,a,kol,sum,i,pr:int64; begin read(n); for i:=1 to n do begin read(a); if (i mod 2)=0 then begin inc(sum,a); end; if a<0 then pr:=pr*a; if (a mod 2)=1 then inc(kol); end; writeln(sum,' ',pr,' ',kol); end. 3) var ma,n,a,i:int64; begin read(n); for i:=1 to n do begin read(a); if (a>ma) then begin ma:=a; end; end; writeln(ma); end.
//Если программа не запускается, то обновите версию
const
handsfree = true;
nmax = 100;
random_min = -28;
random_max = 27;
var
a: array[1..nmax] of integer;
i, n, j, count: integer;
mini, maxi: integer;
min, max: real;
temp: real;
sum, product, harmonic: real;
k: integer;
begin
{ввод массива}
n := nmax;
if handsfree then
n := random(nmax - 5) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else
readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов и кол-ва}
sum := 0;
product := 1;
for i := 1 to n do
begin
sum := sum + a[i];
if a[i] mod 3 = 0 then {если нужен фильтр}
product := product * a[i];
end;
writeln('1) sum = ', sum);
writeln('2) product = ', product);
{подсчет суммы и произведения и агригатов и кол-ва}
sum := 0;
count := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then {если нужен фильтр}
begin
count := count + 1;
sum := sum + a[i];
end;
end;
writeln('3) average (selected) = ', sum / count);
{подсчет суммы и произведения и агригатов и кол-ва}
sum := 0;
product := 1;
count := 0;
for i := 1 to n do
begin
if i mod 2 = 0 then {если нужен фильтр}
sum := sum + a[i];
if a[i] < 0 then {если нужен фильтр}
product := product * a[i];
if a[i] mod 2 = 1 then {если нужен фильтр}
count := count + 1;
end;
writeln('4) count = ', count);
writeln('4) sum = ', sum);
writeln('4) product = ', product);
end.