Ответ:
var A:array[1..10] of integer;
i,sum:integer;
begin
writeln('Введите значения массива');
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
if A[i] mod 2=0 then sum:=sum+a[i];
write('ответ= ',sum);
end.
Var s,i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
end;
s:=0;
for i:=1 to 12 do begin
s:=s+a[i];
end;
writeln(s);
end.
Можно её сохранить на флешку или жёсткий диск.
Var
a,b,c,s,k,x,q,f:real;
begin
write('Vvedite a,b,c: ');
readln(a,b,c);
s:=-b+c-5;
k:=-3*a;
q:=-a*3;
f:=-b+c-5;
begin
If (q<0) and (f<0) then
writeln('x','<',s/k)
else
writeln('x',' >',s/k);
end;
end.