GAECHKA
Твоя помощница в решении задач

Массивы надо сравнить

Дан двумерный массив.Сравнить в каком столбце в первом или последнем больше отрицательных элементов
0
вопрос задан

Источник


1 ответ
Uses Crt;
const
n=5;
var
a:array[1..n,1..n] of integer;
i,j,k,k1:integer;
begin
for i:=1 to n do 
for j:=1 to n do
a[i,j]:=random(-10,10);
for i:=1 to n do begin
for j:=1 to n do 
write(a[i,j]:4);
writeln; end;
k:=0; k1:=0;
for i:=1 to n do begin
if a[i,1]0 then begin
inc(k); end; end;
for i:=1 to n do begin
if a[i,n]0 then begin
inc(k1); end; end;
if k=k1 then begin
writeln('odinakovo'); end;
if k>k1 then begin
writeln('v 1 stolbe bolse otris el'); end;
if kthen begin
writeln('v poslednem stolve bolse otris el'); 
end; end.