//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) const N = 10;
var a: array [1..N] of integer; i, j, b: integer;
begin for i := 1 to N do a[i] := Random(81) - 40; writeln('Элементы массива a: '); for i := 1 to N do write(a[i], ' '); writeln;
//сортировка не очень быстрая, но и массив маленький for j := 1 to n do for i := 1 to n - 1 do if a[i] < a[i + 1] then begin b := a[i]; a[i] := a[i + 1]; a[i + 1] := b; end; writeln; writeln('После сортировки : '); for i := 1 to N do write(a[i], ' '); writeln; end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var a1:=a[0,0]; Writeln('S=',a.ElementsByRow.Skip(1).Where(x->x>a1).Sum) end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 5 *** Исходный массив [4,5] *** 35 24 93 -58 -89 -51 -55 -83 49 -92 -90 89 68 28 -60 46 -57 53 -78 -42
const
N = 10;
var
a: array [1..N] of integer;
i, j, b: integer;
begin
for i := 1 to N do
a[i] := Random(81) - 40;
writeln('Элементы массива a: ');
for i := 1 to N do
write(a[i], ' ');
writeln;
//сортировка не очень быстрая, но и массив маленький
for j := 1 to n do
for i := 1 to n - 1 do
if a[i] < a[i + 1] then
begin
b := a[i];
a[i] := a[i + 1];
a[i + 1] := b;
end;
writeln;
writeln('После сортировки : ');
for i := 1 to N do
write(a[i], ' ');
writeln;
end.