uses crt;
var
a:array [1..1000,1..1000] of integer;
i,j,max,min,k:integer;
begin
clrscr; randomize;
write ('Введи количество столбцов/строк матрицы: ');read(k);
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(100)-50;
write (a[i,j]:4);
end;
writeln;
end;
max:=1; min:=1;
for i:=2 to k do
if a[i,i]>max then max:=a[i,i]
else
if a[i,i]<min then min:=a[i,i];
writeln('Наибольшее значение главной диагонали: ',max);
write('Наименьшее значение главной диагонали: ',min);
end.
52 раза
Объяснение:
Цикл for существует в двух формах:
for счетчик:=значение to конечное_значение do
тело_цикла;
for счетчик:=значение downto конечное_значение do
тело_цикла;
Счетчик – это переменная любого из перечисляемых типов (целого, булевого, символьного, диапазонного, перечисления). Начальные и конечные значения могут быть представлены не только значениями, но и выражениями, возвращающими совместимые с типом счетчика типы данных. Если между начальным и конечным выражением указано служебное слово to, то на каждом шаге цикла значение параметра будет увеличиваться на единицу. Если же указано downto, то значение параметра будет уменьшаться на единицу.
Количество итераций цикла for известно именно до его выполнения, но не до выполнения всей программы. Так в примере ниже, количество выполнений цикла определяется пользователем. Значение присваивается переменной, а затем используется в заголовке цикла. Но когда оно используется, циклу уже точно известно, сколько раз надо выполниться.
var
a:array [1..100,1..100] of integer;
i,j,max,min,n:integer;
begin
write ('Введите порядок матрицы: ');readln(n);
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(25)-9;
write (a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=2 to n do
if a[i,i]>max then max:=a[i,i] else
if a[i,i]<min then min:=a[i,i];
writeln ('Max: ',max);
writeln ('Min: ',min);
readln;
end.