var a: array [1..20] of integer; i,s1,s2: integer;
begin
for i: =1 to 20 do begin
writeln('введите элемент ',i); read(a[i]);
if i mod 2=0 then s1: =s1+a[i] else
s2: =s2+a[i];
end;
writeln('среднее ариф. четных ',s1/20,'; а нечетных ',s2/20);
readln;
end.
ну как всегда: вопросы - в личку)
Поделитесь своими знаниями, ответьте на вопрос:
Составить блок-схему по следующей : найти произведение элементов квадратной матрицы по столбцам.