Запишите программку формирования и вывода массива из 20 случайных чисел (из

Запишите программку формирования и вывода массива из 20 случайных чисел (из спектра от 0 да 1000) и вычисления их среднего значения

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

m:array[1 ... 100] of integer;

i, s, n:longint;

a:real;

begin

randomize;

writeln (Массив:);

for i:=1 to 20 do

begin

m[i]:=random (1001);

write (m[i], );

s:=s+m[i];

end;

a:=s/20;

writeln (Среднее арифметическое: , a:2:3);

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


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

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

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

Войти на сайт