Распечатать на экране 15 случайных чисел в диапазоне от 10 до 50

@MrRap · Регистрация: 22.07.2011

@bigar · 22.07.2011, 19:03

Pascal

uses crt;
var
i,a:integer;
begin
clrscr;
randomize;
for i:=1 to 15 do begin
a:=random(41)+10;
writeln(a);
end;
readkey;
end.

@Puporev · 22.07.2011, 19:05

Pascal

uses crt;
var i,a:byte;
begin
clrscr;
randomize;
for i:=1 to 15 do
 begin
  a:=random(41)+10;
  write(a,' ');
 end;
readln
end.

Добавлено через 36 секунд
bigar,
a:=random(41)+10;

@bigar · 22.07.2011, 19:07

Да)))

@Dekio · 22.07.2011, 19:50

Pascal

program Dekio;
var
  i: Integer;
begin
  randomize;
  for i:=1 to 15 do
  write(random(41)+10,' ');
end.

@MrRap 0 / 0 / 0 Регистрация: 22.07.2011 Сообщений: 12
		1
	Распечатать на экране 15 случайных чисел в диапазоне от 10 до 50 22.07.2011, 18:58. Показов 3029. Ответов 4 Метки нет (Все метки) Распечатать на экране 15 случайных чисел в диапазоне от 10 до 50 0

@bigar 53 / 53 / 36 Регистрация: 18.02.2011 Сообщений: 146
	22.07.2011, 19:07	4
	Да))) 0

	22.07.2011, 19:50

Опции темы