N это элементы массива
Раньше с паскалем не работал, но думаю что верно
for i:=1 to n then begin
if a [i] mod 2 = 0 then
writeIn(a[i]);
end
end;
program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.
-17 = 1 0010001
Первая единица - знак числа"-"
Ответ на ребус - информация