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

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

Задать свой вопрос
Ангелина
PascalABC.NET пойдёт?
Данил
да
Uljana Chekovich
10 минут.
2 ответа
PascalABC.NET
Версия 3.3, сборка 1633 (10.02.2018)

var
 a,b,o: integer;
begin
 for a:=1 to 10 do begin
 b:=random(19)+1;
 writeln(b);
 otvet:=otvet-b;
 end;
 writeln(otvet);
end.
Дмитрий Пастарнак
Лол, они схожи..
Ljubov Zenchikova
)))
Ева
И правда))
Виктор Инюткин
))
Pascal ABC.

var   
   i,a,raz:integer;
begin   
   for i:=1 to 10 do begin         
      a:=random(19)+1;         
      writeln(a);         
      raz:=raz-a;     
   end;     
   writeln('Разность: ',raz);
end.
Алена
Резонно. Если можно было удалить ответ, удалил бы.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт