Вопрос по информатике:

нужно найти среднее арифметическое тремя циклами в паскале

Ответ:

Предполагается, что вводимые числа - целые.

1) С помощью цикла Repeat Until

Program n1;Uses CRT;Var s,k,i: integer; sr: real;beginWriteln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');RepeatReadln(i);s:=s+i;inc(k);Until i=0;sr:=s/(k-1);Writeln('Srednee arifmeticheskoe = ',sr:4:4);readlnend.

2) С помощью цикла While

Program n1;Uses CRT;Var s,k,i: integer; sr: real;beginWriteln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');i:=1;While i<>0 dobeginReadln(i);s:=s+i;inc(k);end;sr:=s/(k-1);Writeln('Srednee arifmeticheskoe = ',sr:4:4);readlnend.

3) С помощью цикла For

Program n1;Uses CRT;Var s,j,k,i: integer; sr: real;beginWriteln('Vvedite kolichestvo chisel');Readln(k);Writeln('Vvodite chisla');For j:=1 to k do begin readln(i); s:=s+i; end;sr:=s/k;writeln('Srednee arifmeticheskoe = ',sr:4:4);readlnend.