необходимо Безотлагательно!!!!!!!!!!! Задачка В ПАСКАЛЕ. измените программку так чтоб она вычисляла

необходимо СРОЧНО!!!!!!!!!!! Задачка В ПАСКАЛЕ. измените программку так чтоб она вычисляла среднее арифметическое введенных чисел. признак окончания ввода 1000.P.S. с подмогою оператора while

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

program noname;
uses crt;
var
a:array[1..1000] of integer;
i,k:integer;
s:real;
begin
clrscr;
i:=1;
k:=0;
write('vvedi chislo '); readln(a[1]);
while a[i]lt;gt;1000 do begin
k:=k+a[i];
i:=i+1;
write('vvedi chislo '); readln(a[i]);
end;
i:=i-1;
s:=k/i;
writeln(s);
readkey;
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт