Инф 10 класс Практическая работа No6 «Управление алгоритмическим исполнителем» Ход работы Используемое программное обеспечение: среда какого-либо учебного исполнителя алгоритмов графического типа, назначение которого рисование на экране компьютера. К числу таких исполнителей относятся: Черепашка Лого, Чертежник, Кенгуренок и др. 1. 1. Написать подпрограмму (процедуру) STEP и с ее составить программу рисования лесенки по диагонали через все поле рисунка. 2. Описать подпрограмму для рисования следующей фигуры. 3. Используя подпрограмму из предыдущего задания, составить программу для рисования «забора» через все поле рисунка.

Все решения даны в системе  программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var im:=a.IndexMax;
  Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  Sort(a,(x,y)->x>y);
  a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
  var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21

Все решения даны в системе  программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var im:=a.IndexMax;
  Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  Sort(a,(x,y)->x>y);
  a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
  var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21