Алгоритм:
Найти 1й элемент строки и записать его в поле i,j ,затем сравнивать все последующие значения той строки с этой переменной.
Var
i,n,m:integer;
k,s:longint;
begin
Write('Задайте количество чисел: '); Read(n);
s:=0; m:=0;
Writeln('Вводите числа...');
for i:=1 to n do
begin
Read(k);
if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end
end;
Writeln('Среднее квадратов четных чисел: ',s/m:0:4)
end.
<em><u>Тестовое решение:</u></em>
Задайте количество чисел: 7
Вводите числа...
36
-18
15
8
14
6
9
Среднее квадратов четных чисел: 383.2000
Устройства, входящие в системный блок:
Материнская плата
Центральный процессор
Оперативная память
Жёсткий диск
Дисковод
Карты расширения
Видеокарта
Звуковая карта
Сетевая карта
Блок питания
Порты компьютера
Внешние устройства:
Клавиатура
Мышь
Сканер
Микрофон
Монитор
Акустические колонки или наушники
Используй copy(). Он может не только первые
//Немного приведения типов на сон грядущий.
а)d(real)+1(integer)=>real
б)a(integer)*d(real)=>real
в)a(integer)-2(integer)=>integer
г)15 mod 5(всегда возвращает integer)=>integer
д)a(integer)+b(integer)+c(integer)/n(real)=>real(т.к. дробь)
е)b(integer)/c(integer)*100(integer)=>real(т.к. дробь)
ж)(a(integer)+b(integer))*2(integer)-d(real)=>real