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

[Sazary]

Сеня Наверняка переписали неправильно. Тогда уж приведите полный листинг. Потому что это

write('a[',i,',',j,']=');
readln(а[i,j]);

написано верно

[Сеня]

uses crt;
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('a[',i,',',j,']=');
readln(a[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.

[Сеня]

Вот в том месте, где указал, там он выдаёт 121 ошибку...

[maladoy]

должно быть readln(ar[i,j]);
ну предположим не везде а только в этом месте!!!
вот в этом месте write(ar[i,j]:3) еще ; не хватает!!!

[puporev]

Ну дак будьте внимательнее. Переменная массив объявлена ar:, а в программе везде a[i,j].

[Сеня]

Точно, спасибо... А ещё можете одну?

[maladoy]

пости а там посмотрим!!!

[Сеня]

составить программу, чтоб определяла кол-во столбцов, где все элементы различны...
Только пожалуйста без randomize и boolean...

[Sazary]

uses crt;
const m=3;n=3;
var
mas : array[1..m,1..n] of integer;
i,j,l,k,num : integer;
begin
clrscr;
for i:=1 to m do
 for j:=1 to n do
  begin
  write('mas[',i,',',j,']= ');
  readln(mas[i,j]);
  end;
writeln('----');

num := 0;
for j:=1 to n do
  begin
  k := 1;
  for i:=1 to m do
    begin
    for l:=i-1 downto 1 do
     if mas[i,j] = mas[l,j] then
      begin
      k := 0;
      break;
      end;
    end;
if k = 1 then num := num + 1;
  end;
{---}
writeln('Matrica:');
for i:=1 to m do
 begin
 for j:=1 to n do
  write(mas[i,j]:4);
 writeln;
 end;
 writeln;
writeln('Kolichestvo stolbcov: ',num);
readln;
end.

Только пожалуйста без randomize и boolean...

И чем они вам так не нравятся?

[pomoshnic]

Извиняюсь просто спешил ,а после исправления на ручной ввод написал неправильно