Сформировать одномерный массив из положительных элементов - Turbo Pascal
Формулировка задачи:
Сформировать одномерный массив из положительных
элементов произвольно заданной матрицы и упорядочить отобранные
значения по убыванию.(Заранее спасибо:3)
Решение задачи: «Сформировать одномерный массив из положительных элементов»
textual
Листинг программы
const m=4; n=5;
var
a: array [1..m,1..n] of Integer;
b: array [1..m*n] of Integer;
i, j, k: Integer;
begin
{ ... }
for i:=1 to m do for j:=1 to n do
if a[i,j]>0 then begin
Inc(k); b[k]:=a[i,j];
end;
Write('B ='); for i:=1 to k do Write(' ',b[i]); WriteLn;
Объяснение кода листинга программы
- Объявлены две матрицы: a и b.
- Переменные i, j, k используются для управления циклами.
- В первой строке циклов проверяется каждый элемент матрицы a.
- Если элемент больше нуля, то его значение копируется в матрицу b и увеличивается счетчик k.
- В конце кода выводится на экран матрица b.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д