// 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
MC (сокращение от английского Memory Clear (Очистить память)) - кнопка означает, что данный сотрутся (удаляться) из ячейки памяти калькулятора.
То-есть предыдущее вычисления забудутся калькулятором. Это все равно что "очистить кэш" из смартфонов.
Я надеюсь, что Вам помог!
1) музыка
2)в компьютере
3)антенна
4)не знаю
5)к<span>оличество символов, из которых состоит </span><span>алфавит
6)32 байта
7)сколько символов
8)без понятия
9)40 байтов
10)</span>65536 или 8192
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.