УМОЛЯЮ!! 10 класс

1) Что произойдет если поменять местами
счетчики внешнего и внутреннего цикла i и j в
заголовках циклов (в типовом алгоритме
обработки двумерного массива)?

2) Какова зависимость индексов элементов,
расположенных на главной диагонали
квадратного массива?

3) Какова зависимость индексов элементов,
расположенных на побочной диагонали
квадратного массива?

1)

var

a,b:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do begin

repeat 

write ('A[',i,'] = ');readln(a[i]);

if a[i]>0 then writeln ('Error!'); 

until a[i]<0; 

end;

writeln ('First massiv: ');

for i:=1 to 10 do write (a[i]:4);

writeln; 

writeln ('Second massiv: ');

i:=1; 

repeat

b[i]:=random(38)+3;

if odd(b[i])=true then i:=i+1; 

until i>10;

for i:=1 to 10 do write (b[i]:4);

writeln;

readln;

end.

2)

var

a,b:array [1..10] of integer;

i,k:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(15)-15;

write (a[i]:4);

end;

writeln; 

write ('Number: ');readln(k);

for i:=1 to 10 do begin

b[i]:=a[i]*k;

write (b[i]:4);

end;

writeln;

readln;

end.

Program WestDog;
uses crt;
const n=10;
var
  a:array [1..10] of integer;
  i,j,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();

  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(11)-5;
      write (a[i]:5);
    end;
  {сортировка массива методом прямого обмена}
  for i:=1 to n-1  do
    for j:=i+1 to n do
      if a[i]>a[j] then
        begin
          temp:=a[i];
          a[i]:=a[j];
          a[j]:=temp;
        end;
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.