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

Ответы 1

  • const nx=100;var i,j,k,n,s,A,B:integer;M:array[1..nx] of integer;sr:real;beginwriteln('Введите начало и конец диапазона');Readln(A,B);for k:=A to B-1 do begini:= i+1;M[i]:= k;s:= s + k;if ((i mod 4 = 0) and (M[i]>0)) then beginwrite(m[i]:3); n:= n +1;end;end;writeln;for j:=1 to i dowrite(m[j]:3);writeln;sr:=s/i;writeln('Среднее арифметическое чисел, принадлежащих промежутку [A, B) = ', sr:6:3);writeln('Количество положительных чисел, стоящих на местах, кратных 4 = ' ,n);end.
    • Автор:

      jaron
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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