Дана: квадратная матрица Найти: наибольшее и наименьшее значения главной диагонали.
Дана: квадратная матрица Найти: наибольшее и наименьшее значения главной диагонали.
Гость
Ответ(ы) на вопрос:
Гость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]
Гость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]
Не нашли ответ?
Похожие вопросы