Если в паскале ктонить понимаете мож поможете, я завтра задачки принесу мож как зделать кто знает поможете. Я слабо в нём варю!!

А че за задачки ?

program x;
begin
Writeln(' Да неси свои задачки. Попробуем');
end.

мда..народ требует задач

Program y;
var s:string;
begin
s:='Действительно, чего бы не попробовать!';
writeln(s);
end;

program opa;
uses crt;
begin
textcolor(4);
writeln('блн! и тут паскаль ');
end.

program aga;
begin
writeln('Да, а ты как думал ?');
writeln('Ща везде Паскаль');
end.

program eh;
begin
writeln('ужассс');
end.

program XX;
uses crt;
begin
writeln('Флуд на паскале ');
сlrscr;
end.

НЕ флуд, просто любители Паскаля собрались!

я ж пошутил.

Сам на делфи пишу

Воть пока лёгинькая примерно знаю как делать но вдруг ошибаюсь жду предложений...
Задача.
Даны натуральные числа m и n, матрица размером m на n, вычислить каких злементов в массиве больше положительных или отрицательных.
Жду завтра новую дам.

Program xx
var m1:array[1000,1000] of Integer;
pol,otr,m,n,x,y:integer;
begin
randomize
writeln('Введите число элементов по горизонтали');
readln(m);
writeln('Введите число элементов по горизонтали');
readln(n);
for y:=1 to n do
begin
for x:=1 to m do
begin
m1[y,x]:=random(21)-10;
write(m1[y,x]:5);
end;
end;
for y:=1 to n do
begin
for x:=1 to m do
begin
If m1[y,x]>0 then pol:=pol+1;
else otr:=otr+1;
end;
end;
If pol>otr then writeln('Положительных чисел больше');
If otr>pol then writeln('Отрицательных чисел больше');
If pol=otr then writeln('Положительных и отрицательных чисел поровну');
readln;
end.

Извини за критику...
проверки на ноль нет, могут балл снять...
проверки на отрицательное значение размера матрицы нет, тож могут балл снять...
Еще раз извиняюсь...

А про нули ничего не упоминалось