//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
writeln('Искомые разности:');
for i:=2 to n do write(a[i]-a[i-1]:4);
writeln;
end.
Пример:
3 43 32 33 18 29 21 48 33 28
Искомые разности:
40 -11 1 -15 11 -8 27 -15 -5