Исходное положение: ГРИС — в левом верхнем углу, на- правление — вниз. Что будет изображено на экране после выполнения ГРИС следующей программы? нач сделай линия поворот прыжок прыжок поворот сделай линия поворот прыжок поворот шаг поворот шаг кон процедура линия Нач шаг шаг кон

A) for I= -15 to do s:s+I;

Исправленный ответ: for l := -15 to n do s:=s+l;

[!] a) Здесь ошибки заключались в том, что необходимо перед равно писать знак ":", чтобы присвоить переменной определённое значение.

b) for kub:=100/10+11 to 1963 do begin a:=7; end;

[!] b) Здесь ошибок нет, но возможно после begin не хватает чего-то дополнительного.

c) for mag:=99 dawnto 1 do readl(aa);

Исправленный вариант: for mag:=99 to 1 do readln(aa);

[!] c) Здесь вместо dawnto необходимо писать to. Вместо readl необходимо писать readln, т.к. readl - неизвестная функция для Pascal ABC.

d) for bma:=0.5 to 10 dp writedl(k);

Исправленный вариант: for bma:=0.5 to 10 do writeln(k);

[!] d) Здесь необходимо писать вместо dp - do, а вместо writedl - writeln, т.к. это неизвестные функции для Pascal ABC.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,0,1000); a.Println;
  a.Where(t->t.IsEven and (t mod 3 <>0)).Min.Println
end.

Пример
897 808 642 381 727 241 898 600 945 170 613 216 651 884 54 648 94 403 516 509
94



begin
  var a:=ArrRandom(30,-50,50); a.Println;
  var b:=a.Select(t -> t<0 ? -t : t).ToArray; b.Println
end.

Пример
-35 13 -17 -31 -16 -26 19 -3 -15 50 7 -29 39 1 48 14 7 23 3 -14 -8 -17 -32 -29 -9 28 -4 12 3 5
35 13 17 31 16 26 19 3 15 50 7 29 39 1 48 14 7 23 3 14 8 17 32 29 9 28 4 12 3 5