<style>
#Таблица { border-collapse: collapse; }
#Таблица td { width: 30px; height: 30px; border: 1px solid; }
</style>
<table id="Таблица">
<tr><td colspan=8></td></tr>
<tr><td rowspan=6></td><td colspan=6></td><td rowspan=7></td></tr>
<tr><td rowspan=4></td><td colspan=4></td><td rowspan=5></td></tr>
<tr><td rowspan=2></td><td colspan=2></td><td rowspan=3></td></tr>
<tr><td></td><td></td></tr>
<tr><td colspan=3></td></tr>
<tr><td colspan=5></td></tr>
<tr><td colspan=7></td></tr>
</table>
// PascalABC.Net 3.0, сборка 1052
const
nn=100;
var
a:array[1..nn] of integer;
p,s:longint;
i,n:byte;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Writeln('Вводите целочисленные элементы массива через пробел');
s:=0; p:=1;
for i:=1 to n do begin
Read(a[i]);
if i mod 2 = 0 then p:=p*a[i];
s:=s+a[i]
end;
Writeln('Произведение элементов с четными номерами: ',p);
Writeln('Среднее арифметическое элементов: ',s/n)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем',
'Мороз ИЛья','Павлова','Глухих');
s.Println;
s:=s.OrderBy(t->t.ToUpper).ToArray;
s.Println
end.