// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
end.

Пример
Количество строк и столбцов в массиве: 7 8
*** Исходный массив [7,8] ***
88 9 -44 13 81 97 -65 -20
16 -37 -33 -34 -69 -64 12 -58
-36 -80 -99 61 -59 -86 -18 83
-77 -1 85 -41 -49 -12 43 84
-64 32 36 -85 -18 -42 49 -6
71 -13 28 33 55 -94 12 13
5 -10 -5 -27 23 -37 -48 74
--------------------------------

0 0

4 года назад

Амёба каждый день делится на две части, профессор Инвалидов каждую среду кол-во амёб уменьшает на одну треть, эксперимент происх

Алекск [7]

Var s : real;
Begin
S:= (1*14-1/3)*52;
Write(s :5:6);
end.

Смешно, конечно, но выходит так. Просто выводишь определённую формулу, вот и все.

0 0

4 года назад

Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на эк

RESSPECT [7]

Var a: array [0..10] of integer;
i, p, o, n: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
if (a[i] > 0) then inc(p);
if (a[i] = 0) then inc(n);
if (a[i] < 0) then inc(o);
end;
writeln();
writeln(p, ' ', n, ' ', o);
end.

0 0

4 года назад