Обработка одномерных массивов Опции

[Connected]

Найти произведение элементов с четными индексами одномерного массива Е размерности k (k меньше или равно 25).


Если возможно, представить схему алгоритма решения.


Есть вот такой пример:

Задание: Найти среднее арифметическое последних k элементов одномерного массива Z размерности n (n меньше или равно 20).

program lab4;
{Лабораторная работа N 4}

var
   z	:array [1..20] of integer;
   k,n,i	:integer;
   sr	:real;
begin
   write('Введите размерность массива Z (n<=20) : ');
   readln(n);
   write('Введите k : ');
   readln(k);
   writeln('Введите массив Z :');
   for i:=1 to n do             {Вводим элементы массива Z}
   begin
      write('Z[',i,'] : ');
      readln(z[i]);
   end;
   sr:=0;
   for i:=n-k+1 to n do         {Находим сумму последних k элементов}
      sr:=sr+z[i];
   sr:=sr/k;                    {Вычисляем среднее арифметическое}
   writeln('Среднее арифметич. последних ',k,' элементов = ',sr:5:2);
end.

ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!

Сообщение отредактировано: Connected - 20.03.2007 22:10