Модифицировать программу

@CoolEnemy · Регистрация: 06.10.2013

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

Помогите модифицировать программу, таким образом, чтобы значения элементов массива генерировались случайно. Организовать вывод элементов массива и результата.

Вот программа:

Pascal

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    a: array [1..100] of integer;
    min,i,n,k : integer;
begin
    writeln('Vvedite kolichestvo sportsmenov');
    readln(n);
       for i:=1 to n do
begin
    write('Vvedite rezultat ',i,'-ogo sportsmena ');
    readln( a[i]);
        end;
    min:=a[1];
    k:=1;
       for i:=2 to n do
       if a[i]<min then Begin min:=a[i];
    k:=i;
           end;
write('Lushui ',k,' sportsmen ',min);
readln;
end.

@Aspirin · 03.12.2013, 19:06

Pascal

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    a: array [1..100] of integer;
    min,i,n,k : integer;
begin
    writeln('Vvedite kolichestvo sportsmenov');
    readln(n);
    randomize;//включить генератор
    for i:=1 to n do begin
       write('Vvedite rezultat ',i,'-ogo sportsmena ');
       a[i]:=1+random(100);//случайное число от 1 до 100
    end;
    min:=a[1];
    k:=1;
    for i:=2 to n do
       if a[i]<min then Begin 
          min:=a[i];
          k:=i;
       end;
write('Lushui ',k,' sportsmen ',min);
readln;
end.

@CoolEnemy · 04.12.2013, 20:13 **[ТС]**

Aspirin, подскажите как сделать, чтобы показывало те рандомные результаты? а то сразу показывает лучший результат

@~~Сиськохват~~ · 04.12.2013, 20:19

Delphi

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    a: array [1..100] of integer;
    min,i,n,k : integer;
begin
    writeln('Vvedite kolichestvo sportsmenov');
    readln(n);
    randomize;//âêëþ÷èòü ãåíåðàòîð
    for i:=1 to n do begin
       a[i]:=1+random(100);//ñëó÷àéíîå ÷èñëî îò 1 äî 100
       writeln('Vvedite rezultat ',i,'-ogo sportsmena ' + IntToStr(a[i]));
    end;
    min:=a[1];
    k:=1;
    for i:=2 to n do
       if a[i]<min then Begin
          min:=a[i];
          k:=i;
       end;
write('Lushui ',k,' sportsmen ',min);
readln;
end.

@CoolEnemy · 04.12.2013, 20:24 **[ТС]**

Сиськохват, спасибо

@CoolEnemy 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 36
	04.12.2013, 20:13 [ТС]	3
	Aspirin, подскажите как сделать, чтобы показывало те рандомные результаты? а то сразу показывает лучший результат 0

@CoolEnemy 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 36
	04.12.2013, 20:24 [ТС]	5
	Сиськохват, спасибо 0