На сколько я понял суть задания - надо создать массивы, используя указатели и динамическую память. Правильно? Тогда, в таком случае, достаточно такого кода.
| Код |
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n = 5;
m = 7;
var
i,j,Summ : Integer;
A : array [1..n,1..m] of ^Integer;
B : array [1..m] of ^Integer;
begin
Summ := 0;
Randomize();
WriteLn('Исходный массив');
WriteLn;
for i := 1 to n do
begin
for j := 1 to m do
begin
New(A[i,j]);
A[i,j]^ := random(100) - 50;
Write(A[i,j]^,' ');
end;
WriteLn;
end;
WriteLn;
for i := 1 to n do
begin
New(B[i]);
B[i]^ := 0;
end;
WriteLn('Массив В');
WriteLn;
for i := 1 to n do
begin
for j := 1 to m do
if A[i,j]^ < 0 then
Inc(B[i]^);
Write(B[i]^,' ');
Summ := Summ + B[i]^;
end;
WriteLn;
WriteLn;
WriteLn('Сумма количества отрицательных элементов: ',Summ);
ReadLn;
end.
|
|
