Задать вопрос
23 февраля, 07:03

Дан одномерный массив, который содержит не более 10 целых чисел. Найти среднее арифметическое элементов, которые стоят на нечетных местах.

+4
Ответы (1)
  1. 23 февраля, 10:39
    0
    uses crt;

    var

    i, k: integer;

    a, k2: real;

    mas, ma: array [1 ... 10] of integer;

    begin

    randomize;

    write (' razmer massiva = ') ; readln (k) ;

    for i:=1 to k do

    mas[i]: = random (10) ;

    for i:=1 to k do

    write (mas[i],' ') ;

    for i:=1 to k do

    if i mod 20 then a: = mas[i]+a;

    writeln;

    if k mod 2 0 then begin k:=k+1; k2: = k/2; end else k2: = k/2;

    a: = a/k2;

    write ('sredn znach = ', a) ;

    readkey;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан одномерный массив, который содержит не более 10 целых чисел. Найти среднее арифметическое элементов, которые стоят на нечетных местах. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы