MONEY за подписку!Ничего делать не надо совсем, всего-то подписаться на тг одмена и нажать кнопку "Принять участие" в розыгрыше: https://t.me/govthing/7650
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
Program Dolboeb(vnaturi);
var
values: array[0..99] of integer;
idx: integer;
sum: integer;
begin
for idx:=0 to Length(values) do
begin
values[idx] := random( 145 ) - 45;
writeln(values[idx]);
if values[idx] mod 2 = 0 then
begin
sum+=values[idx];
end;
end;
writeln(sum);
end.