Задать вопрос
15 августа, 16:07

Найдите среднее арифметическое чисел, принадлежащих промежутку [A, B), и количество положительных чисел, стоящих на местах, кратных 4 паскаль

решить задачу в паскаль с помощью одномерного массива

+5
Ответы (1)
  1. 15 августа, 16:22
    0
    Const nx=100;

    var i, j, k, n, s, A, B:integer; M:array[1 ... nx] of integer; sr:real;

    begin

    writeln ('Введите начало и конец диапазона') ; Readln (A, B) ;

    for k:=A to B-1 do begin

    i: = i+1; M[i]: = k; s: = s + k; if ((i mod 4 = 0) and (M[i]>0)) then begin

    write (m[i]:3) ; n: = n + 1; end; end; writeln;

    for j:=1 to i do

    write (m[j]:3) ; writeln; sr:=s/i;

    writeln ('Среднее арифметическое чисел, принадлежащих промежутку [A, B) = ', sr:6:3) ;

    writeln ('Количество положительных чисел, стоящих на местах, кратных 4 = ', n) ; end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найдите среднее арифметическое чисел, принадлежащих промежутку [A, B), и количество положительных чисел, стоящих на местах, кратных 4 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы