Задача 1 var a:array [1..100] of integer; i,n:integer; begin writeln('Введите n <=100'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; writeln('Элементы равные сумме двух соседей:'); for i:=2 to (n-1) do if a[i]=(a[i-1]+a[i+1]) then write(a[i],' '); writeln; end.
задача 5 var a:array [1..10000] of integer; i,n, mx1, mx2:integer; begin writeln('Введите n <=10000'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; mx1:=1; for i:=2 to n do if a[i]>a[mx1] then mx1:=i; if mx1=1 then mx2:=2 else mx2:=1; for i:=1 to n do if (a[i]>a[mx2])and(i<>mx1) then mx2:=i; writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]); end.
begin
b:=a*a;
c:=b*b;
d:=c*c;
e:=d*c;
f:=e*a;
write('a^13=',f:0:5);
readln
end.