В спортивных соревнованиях участвовало 15 спортсменов. Для удобства каждому присвоили продуктовый номер (от одного до пятнадцати включительно). Известно,сколько баллов набрал каждый спортсмен. Составьте программу,определяющую лучший результат соревнований — Pascal(Паскаль)

program t;

var
  a: array [1 .. 15] of integer;
  i: integer;

begin
  writeln('Введите результат спортсмена');
  for i := 1 to 15 do
  begin
    writeln(a[i], '-й спортсмен ');
    readln(a[i]);
  end;
  min := a[1];
  for i := 1 to 15 do
    if a[i] < min then
      min := a[i];

end.

Leave a Comment

+ 86 = 90