Составить программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел
Составить программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделать три варианта программы, используя операторы цикла While, Repeat и For.
1 2 3 4 5 6 7 8 9 10 11 12 |
var s,i,a:integer; sr:real; begin s:=0; For i:=1 to 10 do begin writeln ('Введите ',i,' число'); readln (a); s:=s+a; end; sr:=s/10; writeln ('Среднее арифметическое =',' ',sr); end. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var s,i,a:integer; sr:real; begin s:=0; i:=1; while i<=10 do begin writeln ('Введите ',i,' число'); readln (a); s:=s+a; i:=i+1; end; sr:=s/10; writeln ('Среднее арифметическое =',' ',sr); end. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var s,i,a:integer; sr:real; begin s:=0; i:=1; repeat writeln ('Введите ',i,' число'); readln (a); s:=s+a; i:=i+1; until i>10; sr:=s/10; writeln ('Среднее арифметическое =',' ',sr); end. |