• Составьте программу с названием А[1..20] которая вводит числа рандомно и находит среднее арифметическое чётных чисел и среднее арифметическое индексов нечётных чисел.

Ответы 4

  • Речь идет про индексы нечетных чисел
    • Автор:

      rosales
    • 6 лет назад
    • 0
  • Шедевр))))
    • Автор:

      margaret
    • 6 лет назад
    • 0
  • Да ну. 6 или 7 класс общеобразовательной школы
    • Автор:

      nugget
    • 6 лет назад
    • 0
  • { PascalABC.NET, но все кроме writeln() должно работать и на TurboPascal. вводит числа рандомно и находит среднее арифметическое  чётных чисел и среднее арифметическое индексов нечётных чисел.}PROGRAM A4;const    num = 16;var    MT:array [1..num] of byte;// массив чисел    i,j:byte;// счетчики    even_sum:integer;// сумма четных    even_num:byte;// количество четных    indx_sum:integer;// сумма нечетных индексов     indx_num:byte;// количество нечетных индексов     BEGIN  // условно ввели набор чисел  randomize();  for i:=1 to num do    MT[i] := random(256);  writeln('Начальный массив ', num ,' случайных чисел');  writeln(MT);    // сам алгоритм  even_sum := 0;  even_num := 0;    indx_sum := 0;  indx_num := 0;    writeln(' ');  write('Четные числа: ');   for i:=1 to num do begin    if not odd(MT[i]) then begin      write(MT[i], ' ');      even_sum := even_sum + MT[i];      even_num := even_num + 1;    end;    if odd(i) then begin       indx_sum := indx_sum + i;      indx_num := indx_num + 1;    end;  end;    writeln(' ');  writeln('Количество четных чисел ', even_num);  writeln('Среднее арифметическое четных чисел = ',            even_sum, '/', even_num , ' = ', even_sum/even_num );   writeln(' ');  writeln('Количество нечетных индексов нечётных чисел ', indx_num);  writeln('Среднее арифметическое индексов нечётных чисел ',            indx_sum, '/', indx_num, ' = ', indx_sum/indx_num);END.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years