Задать вопрос
28 июля, 20:25

Исправьте программу

program n_8;

var n, i, j, x, imax : integer;

begin

for i:=1 to do 10 do read (a[i]) ;

for i:=1 to do 10 do write (a[i],'') ;

for i:=1 to 9 do begin imax:=i:

for j:=i+1 to 10 do if a[ j]>a[imax] then imax:=j;

x:=a[i];

a[i]; =a[imax];

a[imax[:=x

end;

for i:=1 to do 10 do write (a[i]<''];

end.

+3
Ответы (1)
  1. 29 июля, 00:20
    0
    Program n8;

    var

    n, i, j, x, imax : integer;

    begin

    for i:=1 to do 10 do read (a[i]) ;

    for i:=1 to do 10 do write (a[i]') ;

    for i:=1 to 9 do begin imax:=i:

    for j:=i+1 to 10 do if a[ j]>a[imax] then imax:=j;

    x:=a[i];

    a[i]; =a[imax];

    a[imax]:=x;

    end;

    for i:=1 to do 10 do write (a[i],"<'') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Исправьте программу program n_8; var n, i, j, x, imax : integer; begin for i:=1 to do 10 do read (a[i]) ; for i:=1 to do 10 do write ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы