напишите программку, которая генерирует 10 случайных чисел в спектре от 1

Напишите программку, которая генерирует 10 случайных чисел в диапазоне от 1 до 20,выводит эти числа на экран и вычисляет их среднее арифметическое

Задать свой вопрос
Толя Агинян
А язык программирования какой?
Катюша Юсипова
Если Python тогда я щас зделаю
Андрей Ромененко
паскаль abc
Ден
Тогда сори
1 ответ

Const n=10;

Var i:Integer ;s:real;

A:array [1..10]of Integer ;

Begin

S:=0;

For i:=1 to N do begin

A[i]:=random(19)+1;

Write (' A[', i, ']=', A[i]) ;

S:=s+A[i];

End;

Writeln;write(' s=', s/n);

End.

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


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

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

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

Войти на сайт