Значения двух массивов A и B с индексами от 1 до 100 задаются при следующего фрагмента программы:

var k,n,i,r:integer;
a,b:array [1..100] of integer;
begin
n:=100;
for i:= 1 to n do
A[i]:= (i-51)*(i-51);
for i:= 1 to n do begin
B[101-i]:=A[i];
end;
r:=0;
for i:= 1 to n do
if b[i]>=r then k:=i;
write (k);
end.

Какой элемент массива B будет наибольшим?
1) B[1]
2) B[26]
3) B[75]
4) B[100]

​​

=ЕСЛИ(A1<=0;(A1^2)^1/3;ЕСЛИ(И(A1<5;A1>0;);COS(A1);ЕСЛИ(И(A1>=5;(A1+3);0

1) A1^2)^(1/3) - если возводите в степень в виде выражения (1/3) то берите его в скобки, иначе машина возведет в 1-ю степень и потом разделит на 3
2) ЕСЛИ(И(A1<5;A1>0) убрать лишнюю точка с запятой перед закрывающей скобкой
3) ЕСЛИ(И(A1>=5;(A1+3);0 - здесь или пропущено еще одно условие или не нужна функция И, это уже определите сами
4) слишком много закрывающих скобок в конце. их надо считать очень внимательно

На мой взгляд правильная запись будет выглядеть так:
=ЕСЛИ(A1<=0;(A1^2)^(1/3);ЕСЛИ(И(A1<5;A1>0);COS(A1);ЕСЛИ(A1>=5;(A1+3);0)))

Uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.

uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 135 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.

uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=100;
y:=50;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180))+200; 
y1:=y-round(r*sin(i*pi/180))+200; 
line(x,y,x1,y1); 
end;
end.