profile
Опубликовано 4 года назад по предмету Информатика от NikySimpson

В массиве A(n) хранится информация о результатах N спортсменов по плаванию на 100 м. Определить результаты спортсменов, занявших два последних места.

Программа получилась, но лишь от части, так как если задавать n=3, то всё работает нормально, но при задании большего числа программа сходит с ума и начинает нести какой-то бред. 

  1. Ответ
    Ответ дан Segrif
    На паскале

    const n=5;
    var a:array[1..n] of integer;
    i,m1,m2:integer;
    begin
    for i:=1 to n do read(a[i]);
    if a[1]>a[2] then begin m1:=2; m2:=1 end else begin m1:=1; m2:=2 end;
    for i:=3 to n doif a[i]<a[m1] then begin m2:=m1; m1:=i end else
    if a[i]<a[m2] then m2:=i;
    write(a[m1],' ',a[m2])
    end.