Вывести двумерный массив в виде отдельной таблицы 2 строки на 5 столбцов - Pascal
Формулировка задачи:
Всем привет.
Подскажите пожалуйста, как вывести этот двумерный массив в виде отдельной таблицы 2 строки на 5 столбцов?
Заранее благодарен)
program Dvumernmassiv; {$APPTYPE CONSOLE} const n=2; m=5; var i,k, j: integer; mas: array[1..n, 1..m] of integer; begin {ввод массива} for i:=1 to n do for j:=1 to m do begin write(' Element ', i,' stroki, ',j,' stolbsca = '); readln(mas[i, j]); end; writeln(' Kolichestvo stolbcov , ne soderjashaia 0: '); k:=0; for i:=1 to m do begin if (mas[1,i]<>0)and (mas[2,i]<>0) then k:=k+1; end; write (k); readln; end.
Решение задачи: «Вывести двумерный массив в виде отдельной таблицы 2 строки на 5 столбцов»
textual
Листинг программы
for i:=1 to n do begin for j:=1 to m do write(mas[i,j]:6); writeln; end;
Объяснение кода листинга программы
- Устанавливается цикл
for
для переменнойi
от 1 доn
. - Внутри цикла
for
устанавливается циклfor
для переменнойj
от 1 доm
. - Выводится значение элемента массива
mas
с индексамиi
иj
. Форматированный вывод осуществляется с выравниванием по ширине 6. - После вывода всех элементов строки массива осуществляется переход на новую строку с помощью функции
writeln
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д