
Вопрос/Задача:
Вкомпьютер поступают результаты соревнований по плаванию (количество минут и секунд) для трех спортсменов. составьте программу, которая выводит на экран лучший результат.
Ответы на вопрос

пример программы для паскаль
program a;
const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
end.

массив данных о стоимости товаров зададим в виде целочисленных констант
program primer_1; const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58); i,min,k: integer; begin
min: =a[1];
for i: =2 to 12 do if a[i]< min then
begin
min: =a[i]; k: =i; write('минимальная стоимость ', min, ' индекс' ,k) end.
или скорее всего этот вариант
program primer_1; var a: array[1..12] of integer; i, min, k: integer; beginfor i: =1 to 12 do read(a[i]); {ввод стоимостей товаров}min: =a[1]; k: =0; for i: =2 to 12 do if a[i]< min then begin min: =a[i]; k: =i; end; write('мин. сто-мость ', min, ' индекс ' ,k)end.

