Вопрос по информатике:
Помогите с последним заданием по информатике, пожалуйста!(
Найти наибольший элемент главной диагонали двумерного массива из 30 элементов.
Паскаль
Пожаловаться
- 09.07.2017 08:04
- Информатика
- remove_red_eye 18169
- thumb_up 14
Ответы и объяснения 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]>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
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]>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
Пожаловаться
- 01.01.1970 00:00
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы