//1) var A: array [1..8] of integer; i: byte; sum: integer; Arifm: real; begin writeln('Заполнение массива.'); sum := 0; for i := 1 to 8 do begin write('A[',i,'] = '); readln(A[i]); sum := sum + A[i]; end; Arifm := sum/8; writeln('Среднее арифметическое всех элементов = ', Arifm); writeln; writeln('Элементы меньше среднего арифметического.'); for i := 1 to 8 do if A[i] < Arifm then write(A[i]:4); writeln; readln; end.
//2) var A: array [1..8] of integer; i: byte; sum: integer; Arifm: real; begin writeln('Заполнение массива.'); sum := 0; for i := 1 to 8 do begin write('A[',i,'] = '); readln(A[i]); if i mod 2 <> 0 then sum := sum + A[i]; end; Arifm := sum/4; writeln('Среднее арифметическое элементов с нечетн. индексами = ', Arifm); readln; end.
//1)
var
A: array [1..8] of integer;
i: byte;
sum: integer;
Arifm: real;
begin
writeln('Заполнение массива.');
sum := 0;
for i := 1 to 8 do
begin
write('A[',i,'] = ');
readln(A[i]);
sum := sum + A[i];
end;
Arifm := sum/8;
writeln('Среднее арифметическое всех элементов = ', Arifm);
writeln;
writeln('Элементы меньше среднего арифметического.');
for i := 1 to 8 do
if A[i] < Arifm then
write(A[i]:4);
writeln; readln;
end.
//2)
var
A: array [1..8] of integer;
i: byte;
sum: integer;
Arifm: real;
begin
writeln('Заполнение массива.');
sum := 0;
for i := 1 to 8 do
begin
write('A[',i,'] = ');
readln(A[i]);
if i mod 2 <> 0 then
sum := sum + A[i];
end;
Arifm := sum/4;
writeln('Среднее арифметическое элементов с нечетн. индексами = ', Arifm);
readln;
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Where(t->t.IsEven).Sum)
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
2708
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Where(t->t.IsEven).Count)
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
5
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Aggregate(Biginteger(1),(x,y)->x*y))
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
-775118121479521866390147967800000