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

1

Ответы и объяснения

Лучший Ответ!
2013-02-17T12:16:39+04:00

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]<>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.