1. Любыми
2. Вывести каждый элемент, добавляя после вывода пробел или символ смены строки. Можно также организовать смену строки, например, используя конструкцию Writeln
3. Может, если это динамический массив. Статический - не может, потому что его невозможно таковым описать.
program raf105;
const
n = 3;
var
a:array[1..n,1..n] of integer;
i,j:integer;
x:boolean;
begin
for i:=1 to n do
begin
writeln('Введите три элемента строки №',i,' по очереди');
for j:=1 to n do
readln(a[j,i]);
end;
writeln('Номера строк в которых все элементы положительные и чётные:');
for i:=1 to n do
begin
if x
then writeln(i-1);
x:= true;
for j:=1 to n do
if x and (not(a[j,i]>0)) or (not((a[j,i] mod 2)=0))
then x:=false
end;
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Положительные числа - от 1 до 7, их сумма 1+2..+7=28
отрицательные - от - 15 до -1, их произведение -(1*2*3*...*15) посчитаешь на калькуляторе
Var i,n,s:integer;
a:array[1..1000] of integer;
begin
readln(n);
s:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do s:=s+a[i];
writeln(s);
end.<span>
</span>