дык стандартная под... прикол преподов стандартный, с втягиванием в дискуссию насчет того, к какому множеству чисел мы ноль относим...

Program xx;
var m1:array[1000,1000] of integer;
pol,otr,nul,m,n,x,y:integer;
figna:boolean;
begin
randomize;
writeln('Введите число элементов по горизонтали');
readln(m);
writeln('Введите число элементов по горизонтали');
readln(n);
If (m=<0) or (n<=0) then figna:=true;
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;
If m1[y,x]<0 then otr:=otr+1;
if m1[y,x]=0 then nul:=nul+1;
end;
end;
If figna then writeln('Че за отстой ты мне ввел ?!!')
else
begin
If (pol>otr) and (pol>nul) then writeln('Положительных чисел больше');
If (otr>pol) and (otr>nul) then writeln('Отрицательных чисел больше');
If (pol=otr) then writeln('Положительных и отрицательных чисел поровну');
writeln('Если вдруг вам интересно, нулей ',nul);
end;
readln;
end.


Чем еще порадуешь ?

Ну я ж извинился...
просто нули учитывать совсем не нада...
и проверки на отрицательный размер нет:D
у меня препод по информатике был настоящей сво.. ну нехорошим он человеком был... приучил к таким приколам...

Спасибки.
Вот новая.
Дано: нат.число N, целые p и q, а1,а2,...,аn
заменитьнулями элементы,модуль которых про делении на p даёт в остатке q, посчит. их кол-во.

Program XX;
var n,kol,x,rez,modul:integer;
p,q:real;
m1:array[10000] of real;
begin
randomize;
writeln('Введите число элементов');
readln(n);
writeln('Введите число p');
readln(p);
writeln('Введите число q');
readln(q);
for x:=1 to n do
begin
m1[x]:=random(21)-10;
write(m1[x]:5);
end;
for x:=1 to n do
begin
If m1[x]<0 then
modul:=m1[x]*(-1)
else modul:=m1[x];
rez:=modul mod p;
If rez=q then
begin
m1[x]:=0;
kol:=kol+1;
end;
end;
for x:=1 to n do
begin
writeln(m1[x]:5);
end;
writeln('Найдено ',kol,' совпадений');
end.

В первом ещё вроде надо uses например CRT;
var m1:array[1..100,1..100] of integer;
а то не тянет!?

а во втором мож вместо readln; надо написать readkey;?

а эту посмотрю ещё если не понятно шонить спрошу.

Эх! Программеры!
Мне б тож на программера обучиться...
Может, кто подскажет какие-нибудь недорогие и надежные курсы в Москве?

не..
readkey вообще ни к чему..

Agiller

program pr;
var
num1, num2, num: string;
l1, l2, p1, p2: byte;
begin
repeat
readln(num1);
l1:=length(num1);
until l1<=100;
repeat
readln(num2);
l2:=length(num2);
until l2<=100;
num:='';
p1:=1;
p2:=1;

repeat
if num1[p1]<num2[p2] then
begin
num:=num+num2[p2];
p2:=p2+1;
end
else
begin
num:=num+num1[p1];
p1:=p1+1;
end;
if p1>l1 then
begin
for p2:=p2 to l2 do
begin
num:=num+num2[p2];
end;
end
else
begin
if p2>l2 then
begin
for p1:=p1 to l1 do
begin
num:=num+num1[p1];
end;
end;
end;
until length(num)=l1+l2;
writeln(num);
end.

Кажись так если чего не напутал.

Stalker

Да, правильно, это - задача с прошлогодней олимпиады по Паскалю;

легкая задачка.

А какого уровня была олимпиада (город, район)

2Stalker ты не путаешься в своих begin/end, при бОльших прогах?

город

О, родные души! А на Делфи кто-нить шарит?

----------------------------------------------------------------------------------------------------------
Они убили Кени!

А я на что ? Delphi Rulezz!