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

5. Используя суждения заполни таблицу
Рыжеволосый мальчик Семикилограммовый груз Фарфоровый сервиз

Объект Свойство Величина Значение величины

Должно быть в виде таблицы

Показать ответ
Ответ:
ikurgan
ikurgan
10.10.2021 20:35
1) Начало
2) Ввод матрицы A(5, 10)
3) Цикл по i от 1 до 5 // по строкам
3.1) max = A(i, 1); min = A(i, 1); nmax = 1; nmin = 1;
3.2) Цикл по k от 1 до 10 // по столбцам
3.2.1) Если A(i, k) > max, то // находим максимум в строке и его номер
3.2.1.1) max = A(i, k); nmax = k;
3.2.1.2) Конец Если
3.2.2) Если A(i, k) < min, то // находим минимум в строке и его номер
3.2.2.1) min = A(i, k); nmin = k;
3.2.2.2) Конец Если
3.2.3) Конец цикла по k // по столбцам
3.2.4) A(i, nmin) = max; A(i, nmax) = min // меняем их местами
3.3) Конец цикла по i // по строкам
4) Вывод массива A(5, 10)
5) Конец.
Сложность такой программы - 1 (очень простая).
Всего лишь два цикла в цикле и два сравнения чисел.
0,0(0 оценок)
Ответ:
кристина2155
кристина2155
18.03.2023 14:10
Var i,j,n: integer;
    a: array[,] of real;
begin
  write('n = ');  readln(n);
  setlength(a,n+1,n+1);
  randomize;
  writeln('исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(-20,20);
      write(a[i,j]:4);
    end;
    writeln;
  end;
//транспонирование матрицы
  for i:=1 to n-1 do
  for j:=i+1 to n do  swap(a[i,j],a[j,i]);
//вывод на экран  
  writeln('транспонированная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
end.

n = 4
исходная матрица:
  -5  16 -10   5
  -4 -20   6  14
  -2  10  -4  -7
 -16   1  -9  13
транспонированная матрица:
  -5  -4  -2 -16
  16 -20  10   1
 -10   6  -4  -9
   5  14  -7  13
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота