Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введённых чисел массив не использует сделайте три варианта программы используя операторы цикла в while repet и for
номер 2 и 4 пожалуйста помогите !
номер 2 и 4 пожалуйста помогите !
Answers & Comments
program ddg2;
var
i, j, k: Integer;
begin
repeat
begin
WriteLn('число: ');
ReadLn(i);
k := k + 1;
j := j + i;
end
until k = 10;
WriteLn('Среднее арифметическое=', j / 10);
end.
2.
program ddg1;
var i,j,k:Integer;
begin
while k<>10 do begin
WriteLn('число: ');
ReadLn(i);
k:=k+1;
j:=j+i;
end;
WriteLn('Среднее арифметическое=',j/10);
end.
3.
program ddg;
var
i, j: Integer;
begin
for i := 1 to 10 do
begin
WriteLn('Введите число:');
readln(i);
end;
j := j + i;
WriteLn('Среднее арифметическое = ', j / 10);
end.
4. Таблица умножения:
program fgg;
var
n, m: integer;
begin
for n := 1 to 10 do
for m := 0 to 10 do
WriteLn(n, '*', m, '=', n * m);
end.