Cоставить программу в паскале по подсчету кол-ва жильцов в доме случайным

Cоставить программку в паскале по подсчету кол-ва жильцов в доме случайным числом в спектре от 50 до 200 человек.(число домов 30).Программку составить через массив.

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

Program zadacha;

Var        a:array [1..100] of integer;

             i,s:integer;

Begin

  Randomize;

  s:=0;

  For i:=1 to 30 do begin

    a[i]:=random(150)+50;

    s:=s+a[i];

  End;

  Writeln(s);

End.

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


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

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

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

Войти на сайт