Ответ 2
т.к у самого минимального числа индекс массива равен 2
const n=10;
var a: array[1..n] of integer;
i,s: integer;
begin
s:=0;
write('massiv: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
write('sum=',s);
end.
//1a
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.