<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
337,5 Кб=337,5*1024 байт = 345600 байт
Глубина цвета = 345600/(120*120) = 24 байта.
Формально получилось так. Но это далеко от реальных значений (возможно, что в числовых данных что-то напутано).
вроде-бы это векторная графика;
различия
на распечатанном рисунке не отоброзился зеленый треугольник, но появились какие-то линия которых не было
Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.