Pascal:
const n=20;
var a: array[1..n] of integer;
max, min, i: integer;
begin
max:=-11;
min:=11;
for i:=1 to n do begin
a[i]:=random(20)-10; {или readln(a[i]); если нужен конкретный ввод}
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln((max+min)/2);
end.
Var a, b, c, x, y: Integer;
Begin
WriteLn('Введите коэффициенты a, b, c: ');
Read(a, b, c);
WriteLn('Введите координаты точки x, y: ');
Read(x, y);
If y = a * x * x + b * x + c Then WriteLn('Принадлежит')
Else WriteLn('Не принадлежит')
End.
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
<span>End.
2) второе решение
</span>Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.<span>
</span>