3, и 4 неправильно. После переименования, или название не стоит точка
а в программном блоке может оканчиваться не только var
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
const n=20;
var a:array [1..n] of integer;
i,max,maxi,min,mini:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
maxi:=1;
min:=a[1];
mini:=1;
for i:= 1 to n do
begin
if a[i]>max then
begin
max:=a[i];
maxi:=i
end;
if a[i]<min then
begin
min:=a[i];
mini:=i
end
end;
writeln;
writeln('Максимальный элемент ',max,' и его номер ',maxi);
writeln('Минимальный элемент ',min,' и его номер ',mini)
end.
Или (если max или min элемент будет не один)
const n=20;
var a:array [1..n] of integer;
i,max,min:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
min:=a[1];
for i:= 1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]
end;
writeln;
for i:= 1 to n do
begin
if a[i]=max then writeln('Максимальный элемент ',max,' и его номер ',i);
if a[i]=min then writeln('Минимальный элемент ',min,' и его номер ',i)
end
end.
((1&0)v1)&(1v0) = ((0)v1)&(1v0) = (0v1)&(1) = (1)&1 = 1&1 = 1
{Файл: prog3_13.pasЗадача: Дано целое положительное число n, вещественное число x. Найти значение многочлена вида an*x^n+a(n-1)*x^(n-1)+...+a1*x^1+a0, если коэффициент многочлена вводятся последовательно с клавиатуры в следующем порядке:an, a(n-1), ..., a1, a0Автор: Дата 22,09,2015}var n, a, i, j :integer; x, p, x1 :real; begin p:=0; {ввод постояных x, n} writeln ('введите n, x'); readln (n, x); {начало вычисление многочлена} for i:=n downto 1 do begin {ввод an, an-1,..., a1, a0} writeln ('введите a',i); readln (a); for j:=1 to n do begin {вычисление x^n} x1:=1; x1:= x1*x; end; {вычисление an*x^n+a(n-1)+x^(n-1)+...+a1*x^1+a0} p:=a*x1+p; end; {ответ} writeln('значение многочлена ',p);end.