Регистрация
черныйхащ
10.06.2022 07:45
Информатика
Есть ответ 👍

Составить программу для нахождения среднего арифметического всех чисел от А до В

280
493
Посмотреть ответы 2

Ответы на вопрос:

marinafox253
marinafox253
4,4(12 оценок)

Объяснение:

var a,b,sr,c:integer;

begin

readln (a,b);

for var i:=a to b do begin

sr:=sr+i;

c:=c+1;

end;

writeln (sr/c);

end.

KatiG
KatiG
4,7(77 оценок)
Const m=1000; var k: array[1..m]of integer; i,n: integer; p: real; begin p: =1;     writeln('input n');     readln(n);         for i: =1 to n do           begin             read(k[i]);   {массив вводится через пробел, последний элемент enter}                 if k[i]mod 2=0 then                     p: =p*k[i];           end; writeln; writeln('p  =  ',p: 4: 0); end.                      

Популярно: Информатика