Напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее арифметическое элементов с четными индексами, и среднее арифметическое элементов с нечетными номерами. Результат выдается на экран пользователя — Pascal(Паскаль)

const
  n=20;
var
  a:array[1..n]of real;
  i:integer;
  ns,cs:real;
begin
  ns:=0;
  cs:=0;
  for i:=1 to n do
  begin
    readln(a[i]);
    if odd(i) then
      ns:=ns+a[i]
    else
      cs:=cs+a[i];
  end;
  writeln(ns/10,' ',cs/10)
end.

Похожие записи/страницы:

Leave a Comment

10 + = 19