Помогите с последним заданием по информатике, пожалуйста!(Отыскать наибольший элемент основной

Помогите с заключительным заданием по информатике, пожалуйста!(
Найти наибольший элемент основной диагонали двумерного массива из 30 частей.
Паскаль

Задать свой вопрос
Трегухова Ксюша
Что-то не то в условии. Если нужна основная диагональ, то используется квадратная матрица. Но квадратная матрица их 30 элементов не получится.
1 ответ
Для матрицы 6х6 (36 частей):
const n=6;
var 
a:array[1..n,1..n] of integer;
i,j,max:integer;
begin
Randomize;
writeln('Начальный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(51);
   write(a[i,j]:3);
  end;
  writeln;
 end;
max:=a[1,1];
for i:=2 to n do
  if a[i,i]gt;max then max:=a[i,i];
writeln('max = ',max);
end.

Пример:
Начальный массив:
 32 14  6 10 45  8
 39 31  5 28 18 15
  3 19 19 18 35  0
 42 27 36 28  8 10
  5 13 40 10 41 10
 35 12 18 17 31  4
max = 41
Даниил Велицкий
Ну так просто поправьте в первой строке n = 30, заместо n=6
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт