Поменять первый и последний столбцы матрицы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

дана целочисленная матрица размера 5x6.Поменять первый и последний из столбцов

Решение задачи: «Поменять первый и последний столбцы матрицы»

textual
Листинг программы
var a:array[1..5,1..6] of integer; i,j,v:integer;
 
begin
 for i:=1 to 5 do begin
  for i:=1 to 6 do begin
    Write('Введите элемент массива [',i,',',j,']   '); Readln(a[i,j]);
  end; writeln;
 end; writeln;
 for i:=1 to 5 do begin v:=a[i,1]; a[i,1]:=a[i,6]; a[i,6]:=v; end;
 for i:=1 to 5 do begin
  for i:=1 to 6 do begin
    Write(a[i,j]:5);
  end; writeln;
 end; writeln;
 Readln;
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и выполняет следующие действия:

  1. Создает массив a размером 5x6, инициализирует его значениями, которые пользователь должен ввести.
  2. Выводит значения каждого элемента массива на экран.
  3. Затем код меняет местами первый и шестой столбцы массива.
  4. Выводит измененный массив на экран.
  5. Код завершается, ожидая ввода пользователя.

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы