Внимание! center-referat.ru не продает дипломы, аттестаты об образовании и иные документы об образовании. Все услуги на сайте предоставляются исключительно в рамках законодательства.

Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.

Массив А вводится с клавиатуры Найти среднее арифметическое его элементов с нечетными...

Сегодня примерно в 19:18 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

Массив А вводится с клавиатуры Найти среднее арифметическое его элементов с нечетными номерами.Размер произвольный .решение паскаль .решите пожалуйста

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

Массив А вводится с клавиатуры Найти среднее арифметическое его элементов с нечетными номерами.Размер произвольный .решение паскаль .решите пожалуйста

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Program asd;
USES crt;
Const n=5;
VAR A:array[1..n] of integer;
i,ind:integer; s,sr:real;
BEGIN
Clrscr;
Writeln('Заполните массив числами: ');

For i:=1 to n do
 begin
  Write('A[',i,']: ');
  Readln(A[i]);

 end;
 For i:=1 to n do
  begin
   Ind:=i;

   If not Ind mod 2 = 0 then
   begin

    S:=S+A[i];
    Sr:=S/n;
   end;
  end;

  Writeln('Ср. ар. элементов с нечетными индексами: ',Sr);
END.

Авторские права 2002-2021 center-referat.ru