Регистрация
DarkZlo
26.01.2021 07:08
Информатика
Есть ответ 👍

Main.pas 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{
Online Pascal Compiler.
Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.
}
program Hello;
begin
writeln ('Hello World')
end.
Д

193
320
Посмотреть ответы 1

Ответы на вопрос:

тимур617
тимур617
4,5(77 оценок)

program choice;

var i,j,c,d: integer;

        a: array[1..10] of integer;

begin

for i: =1 to 10 do

      read(a[i]);

for i: =1 to 10 do begin

      c: =-10000;

      for j: =i to 10 do

              if a[j]> c then begin

              c: =a[j];

              d: =j

              end;

      a[d]: =a[i];

      a[i]: =c;

      end;

for i: =1 to 10 do

      writeln(a[i]);

end.

Популярно: Информатика