В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

Паскаль. дана матрица к (5 на 5). найти минимальный размер элемента в строчке 4,и заменить этим значением все элементы главной диагонали.(элементы матрицы вводить с клавиатуры или рандома).

Показать ответ
Ответ:
Alys1
Alys1
24.07.2020 19:10
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота