Тот самый Pascal... Двумерные массивы...

[Сеня]

Ребят, надо создать программу, та находила колличество столбцовБгде все элементы положительны.

[Sazary]

uses crt;
const m=5; n=6;
var mas : array[1..m,1..n] of integer;
i,j,k : integer;
fl : boolean;
begin
clrscr;
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  mas[i,j] := random(20)-5;
  write(mas[i,j]:4);
  end;
 writeln;
 end;
writeln('------');
k:=0;
for j:=1 to n do
 begin
 fl := true;
 for i:=1 to m do
  if mas[i,j] <=0 then
   begin
   fl := false;
   break;
   end;
 if fl then inc(k);
 end;
writeln('Kolichestvo stolbcov: ',k);
readln;
end.

[maladoy]

uses crt;
const n=6;
         l=8;
var x:array[1..n,1..l] of integer;
    i,k,kp,ks:integer;
begin
clrscr;
randomize;
writeln('Matrica X:');
for i:=1 to n do
  begin
     for k:=1 to l do
       begin
         x[i,k]:=random(10)-4;
         write(x[i,k]:4);
       end;
     writeln;
   end;
ks:=0;
for k:=1 to l do //идем по столбцам слева направо
   begin
     kp:=0;
     for i:=1 to n do //идем по строке сверху вниз
     if x[i,k]>0 then kp:=kp+1;//считаем положительные в столбцах
    if kp= n then ks:=ks+1;
   end;

writeln('kol-vo stolb');
write(ks,' ');
readln
end

. как то так

[Сеня]

Спасибо, а можно без randomize и ink, ато такого ещё не было...

[Sazary]

Для моего варианта..Замените

randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  mas[i,j] := random(20)-5;
  write(mas[i,j]:4);
  end;
 writeln;
 end;

на

for i:=1 to m do
 for j:=1 to n do
  begin
  write('mas[',i,',',j,']= ');
  readln(mas[i,j]);
  end;

А inc(k) замените на k := k + 1

[pomoshnic]

var ar:array[1..100,1..100] of integer;
i,j,a,b,c:integer;
f:boolean;
begin
write('1..a, 1..b '); readln(a,b);
for i:=1 to a do
for j:=1 to b do
begin
write(Vvedite ar[,i,',',j,'] ');
readln(ar[i,j]);
end;
for i:=1 to a do
begin
for j:=1 to b do
write(ar[i,j]:3)
writeln
end;
for j:=1 to b do
begin
f:=true;
for I:=1 to a do
if ar[i,j]<0 then f:=false;
if f then c:=c+1
end;
writeln(c,' stolbcov');
readln
end.

[Сеня]

Спасибо, ребят, а вот хочу узнать, можно ли это вообще без булеана написать? И ещё, pomoshnik, в твоём варианте выдаёт здесь readln(a[i,j]; ошибку...

[maladoy]

readln(a[i,j]); вот так должно быть

[Sazary]

Сеня

можно ли это вообще без булеана написать?

В варианте maladoy как раз без него.

выдаёт здесь readln(a[i,j]; ошибку...

опечатка. Исправьте на readln(a[i,j]);

[Сеня]

write('a[',i,',',j,']=');
readln(а[i,j]);
Та же хрень, он пишет Error 121: invalid qualifier...