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

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

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

+3
Ответы (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 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать программу в Pascal. 1. Организуйте ввод и вывод одномерного массива в строку, в столбец. 2. Найдите произведение ненулевых элементов одномерного массива. 3.
Ответы (1)
Паскаль, помогите! В числовом массиве из 10 элементов, заданных случайным образом от - 100 до 500. Найти: 1) сумму положительных элементов, стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на нечётных местах;
Ответы (1)
В записи m[7]=9 m обозначает 1) имя массива 2) имя элемента массива 3) номер элемента массива 4) значение элемента массива в записи m[7]=
Ответы (1)
Даны два целочисленных массива. Найти сумму элементов первого массива, стоящих на четных местах, и заменить ею все элементы второго массива, стоящие на нечетных местах (в паскаль)
Ответы (1)
Посчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3
Ответы (1)