Не могу написать псевдокод к данной задаче:
const
N = 10;
m = 8;

var
a: array[1..N, 1..m] of integer;
k, max: integer;
i, j: integer;
b: array[1..m] of integer;

begin
randomize;
writeln('Matrix A:');
for i := 1 to N do
begin
for j := 1 to m do
begin
a[i, j] := -n * m div 2 + random(n * m);
write(a[i, j]:4);
end;
writeln;
end;
k := 0;
writeln('Vector B: ');
for j := 1 to m do
begin
max := -Maxint;
for i := 2 to n do
if (a[i, j] > max) and (a[i, j] mod 10 = 5) then
max := a[i, j];
inc(k);
b[k] := max;
end;
for i := 1 to m do
begin
write(i, '-й столбец: ');
if b[i] <> -Maxint then
writeln(b[i])
else
writeln('Отсутствует!');
end;
end.

ponia    2   18.05.2020 09:18    0