НАРИСОВАТЬ В PASCALABC ВСЮ КАРТИНКУ ​

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