Значения двух массивов 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]
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]
More Questions From This User See All