Составьте программу по которой компьютер 10 раз запросит ввод всех чисел

Составьте программу по которой компьютер 10 раз запросит ввод всех чисел и в итоге выведет среднее арифметическое значение введённых чисел массив не использует сделайте три варианта программы используя операторы цикла в while repet и for
номер 2 и 4 пожалуйста помогите !

Задать свой вопрос
1 ответ
1.
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 klt;gt;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.
Сергей
спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт