Так как у Коли по условию задачи 2 ряд, значит нумерация рядов на схеме будет сверху вниз. А это означает, что Петя сидит на 3 ряду.
Далее в условии задачи сказано, что Коля сидит на 3 месте, значит нумерация мест идет справа налево, а это означает, что номер места у Пети — 5.
Петя сидит в 3 ряду на 5 месте.
Var
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln('среднее арифм. элементов массива=',summ/n)
<span>end.</span>
1) var ar:array of integer;
<span>n,i:integer;
procedure writing(ar:array of integer; var i,n:integer);
begin;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
end;
begin;
readln(n);
writeln('Array:');
SetLength(ar,n+1);
for i:=1 to n do
readln(ar[i]);
i:=1;
writeln('Result:');
writing(ar,i,n);
<span>end.
</span>2) </span>var ar:array[1..10] of integer;
n,i:integer;
sr,otk,otkm:real;
begin;
randomize;
otkm:=-1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
sr:=sr+ar[i];
write(ar[i]:4);
end;
sr:=sr/10;
for i:=1 to 10 do
begin;
otk:=ar[i]-sr;
if otkm<otk then otkm:=otk;
end;
writeln;
writeln('Среднее арифметическое:',sr);
write('Максимальное отклонение:',otkm);
end.
Те, в которых не используется абсолютная адресация по отношению как к номеру столбца, так и номеру строки.