// Скриншот работы и сама программа в приложении.
// Все три пункта выполняются в одной программе.
const
max = 3;
var
ar:array[1..max,1..max] of byte;//для проверки = ((22,0,55 ),(0,11,23),(1,2,33) );
i,j:byte;
s:string;
begin
writeln('Задание 2.1.');
for i:=1 to max do begin
write('Введите ',max,' элемента ',i,'-го ряда: ');
for j:=1 to max do
read(ar[i,j]);
end;
writeln();
writeln('Задание 2.2.');
writeln('Введенный массив:');
for i:=1 to max do begin
for j:=1 to max do
write(ar[i,j]:6);
writeln();
end;
writeln();
writeln('Задание 2.3.');
for j:=1 to max do begin
s:=' ';
for i:=1 to max do
// если первый - то только если элемент > 0
if (ar[i,j]>0) and (i=1) or (i>1) then
s:=s+ar[i,j];
write(s,' ');
end;
end.
