const N=10
var a:array[1..n] of integer;
k,i,p:integer;
begin
for i:=1 to n do begin
a[i]:=random(101);
write(a[i]:3);
end;
writeln;
write('Введите k,p');
read(k,p);
writeln;
if a[p]>a[k] then write(a[p]) else write (a[k]);
end.
//PascalABC.NET
//Версия 3.3, сборка 1627
function f(x: integer): boolean;
begin
f:=false;
var c:=0;
foreach var item in x.ToString.Select(t->t.ToDigit()).Where(r->r<>0) do
if (x mod item=0) then inc(c);
if c=x.ToString.Count then f:=true;
end;
begin
var n:=ReadInteger;
range(1,n).Where(x->f(x)).Println;
end.
// PascalABC.Net 3.0, сборка 1066
begin
var a:=MatrixRandom(2,4,-25,25);
Writeln('Исходная матрица: ',a);
var s:=0;
for var i:=0 to 1 do
for var j:=0 to 3 do
s+=a[i,j];
Writeln('Сумма элементов равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица: [[-15,-12,-9,5],[-8,-3,-23,7]]
Сумма элементов равна -58
Массив, таблица? скорее таблица, я думаю