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

Question

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

Составьте программку,по которой компьютер десять раз запросит ввод всех чисел и в результате выведет среднее арифметическое значение введенных чисел
(массив не использовать).
Использовать только Repeat
программка ПАСКАЛЬ
40 БАЛЛОВ

Задать свой вопрос

Галина Оцуп 2019-06-25 18:22:24

( k/10 )

Ковалева Яна 2019-06-25 18:24:06

надобно было во вритлн написать что якобы среднее арифметическое = там например 17

Максим Мальшаков 2019-06-25 18:33:30

var m,i,l:longint; k,n:real; begin repeat readln(n); k:=k+n; inc(i); until i>9; writeln(k/10:0:0);readln;end.

Андрей Манджуров 2019-06-25 18:43:02

а так?

Света 2019-06-25 18:45:11

или в врителн без :0:0

Семик Арлинский 2019-06-25 18:48:48

Вообщем переменные i и k надо бы инициализировать:)

Горева Лариса 2019-06-25 18:53:03

вообще закосячил я тут)))

Вера Мелащенко 2019-06-25 19:00:07

да без 0 0 надо вроде

Лиза Гапичева 2019-06-25 19:06:26

ну ка надобно переделывать

Нина Сторожилова 2019-06-25 19:10:45

не рабит

Серега Назанкин
Информатика
2019-06-25 18:15:45
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Какие социальные статусы есть у человека?

вычисли и запиши произведение чисел 3427 и 3,приватное чисел 4228 и

В каком сражении был решен исход греко-персидсих войн?

Найди значение алгебраического выражения 11ab(12a2b2)+12ab(b211a2) при a=10,b=2

Заполни таблицу функции соединительной ткани 9 3 баллаВид соединительной-Выполняемая функция

1) Mike .................................... (study) abroad for a year. 2) Susan

Сочинение на тему Возлюбленная игрушкаquot;( Не компьютерные забавы) Пожалуйста!!!!!

назовите не менее 3-х целей исследования антарктиды срочно

Заполните пропуски формами глаголов в Prateritum. 1) Er.....sein Mobiltelefon

Тамара · Answer 1 · 2019-06-25 18:22:00+3:00

Тамара 2019-06-25 18:22:00

Var
i: integer;
sr, s, x: real;
begin
i:=0;
repeat
readln(x);
s:=s+x;
i:=i+1;
until i=10;
sr := s/10;
writeln(sr);
end.

Диман Вассчев 2019-06-25 18:27:08

x-то тоже real обязан быть

Ихджалов Сашок 2019-06-25 18:35:26

)))

Валентина Чадина 2019-06-25 18:36:23

Неудача с вами) Тогда и s тоже)

Кужелов Андрей 2019-06-25 18:42:33

да да , вот че среднее выводит вритон

Сема · Answer 2 · 2019-06-25 18:22:29+3:00

Var i, n: integer;
S, k: real;
begin
  n := 10;
  S := 0;
  repeat
  writeln('Print number');
   readln(k);
  S := S + k;
   n := n - 1;
  until n = 0;
  writeln(S / 10);
end.

О проекте

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

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