Создать массив из 15 случайных чисел и вывести минимальное из них

@DragonSword · Регистрация: 18.05.2011

Author24 — интернет-сервис помощи студентам

Напишите пожайлуста прогу которая создает массив из 15 случайных чисел и выводит минимальное из них.

@Amid007 · 23.05.2011, 15:31

Pascal

program min;
uses crt;
var a: array [1..15] of integer;
      i, m : integer;
begin
 clrscr;
 randomize;
 for i:=1 to 15 do
 a[i]:=random(100);
 m:=100;
 for i:=1 to 15 do
 begin
  writeln(a[i]);
  if a[i]<m then m:=a[i];
 end;
 writeln('min= ',m);
 readln;
end.

@DragonSword 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 15
		1
	Создать массив из 15 случайных чисел и вывести минимальное из них 23.05.2011, 15:04. Показов 9454. Ответов 1 Метки нет (Все метки) Напишите пожайлуста прогу которая создает массив из 15 случайных чисел и выводит минимальное из них. 0

	23.05.2011, 15:31

Создать массив из 15 случайных чисел и вывести минимальное из них

Решение