Даны две матрицы X(5,5) и Y(4,4). Найти сумму отрицательных элементов матриц и сравнить, у какой из матриц она больше.
Нужно сделать программу на языке Паскаль через массив.
Среда разработки Pascal ABCNET.
Нужно сделать программу на языке Паскаль через массив.
Среда разработки Pascal ABCNET.
More Questions From This User See All
Answers & Comments
X: array [1..5, 1..5] of real;
Y: array [1..4, 1..4] of real;
i, j: byte;
SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
X[i, j] := random*40-20;
if X[i, j] < 0 then SumX := SumX + X[i, j];
write(X[i, j]:9:4);
end;
writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
Y[i, j] := random*40-20;
if Y[i, j] < 0 then SumY := SumY + Y[i, j];
write(Y[i, j]:9:4);
end;
writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.