Вопрос по информатике:
ПАСКАЛЬ.
Дана матрица К (5 на 5). Найти минимальный размер элемента в строчке 4,и заменить этим значением все элементы главной диагонали.(элементы матрицы вводить с помощью клавиатуры или рандома).
- 21.08.2018 00:09
- Информатика
- remove_red_eye 17029
- thumb_up 10
Ответы и объяснения 1
Const
n=5;
var
a:array[1..n,1..n] of integer;
i,j,amin:integer;
begin
Randomize;
Writeln('Сгенерированный массив');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(50)+1;
Write(a[i,j]:3)
end;
Writeln
end;
amin:=a[4,1];
for j:=2 to n do
if amin>a[4,j] then amin:=a[4,j];
for i:=1 to n do a[i,i]:=amin;
Writeln('Результирующий массив');
for i:=1 to n do begin
for j:=1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Сгенерированный массив
14 26 14 37 27
27 24 37 17 38
36 22 41 29 14
13 7 32 42 27
27 28 21 10 26
Результирующий массив
7 26 14 37 27
27 7 37 17 38
36 22 7 29 14
13 7 32 7 27
27 28 21 10 7
- 21.08.2018 00:20
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.