Pascal ABC SOS!

[25-17]

Doctor I-Bolit ну реши ....

[Vasya Pantyukhov]

1
ses crt;
var n,i,a,kp,ko:integer;
begin
write('n=');
read(n);
writeln('Введите ',n,' целых чисел');
kp:=0;
ko:=0;
for i:=1 to n do
begin
read(a);
if a>0 then kp:=kp+1;
if a<0 then ko:=ko+1;
end;
writeln('Положительных=',kp,' отрицательных=',ko);
if kp>ko then write('Положительных больше')
else if kp<ko then write('Отрицательных больше')
else write('Поровну')
end.

Добавлено через 00:36 мин.
2

uses crt;
var a:array [1..100] of integer;
i,max,n:integer;

begin
Write('Max кол-во чисел до 100* = ');readln(n);
For i:=1 to n do
begin
Write('Введите ',i,'-е число: ');readln(a);
end;
max:=a[1];
For i:=1 to n do
if a>max then max:=a;
Writeln;
Writeln('Максимально число - ',max);
end.

[Doctor-iBolit]

id122694932, гуглер профит

[Vasya Pantyukhov]

Давай досвиданья

[Doctor-iBolit]

Мне даже лень паскаль открывать)
Я это классе в 7 проходил.

[25-17]

id122694932, Не правильно не так надо

[snaiper. 0]

легко

[FANTA3eR]

[Vasya Pantyukhov]

а как? гонишь что ли?

[Illya Pavlovsky]

ХАхаа

[Spider Man 0]

**korshun** 
![image](http://i021.radikal.ru/1205/a1/bd18a3bbb996.gif)

а это причём тут?

[FANTA3eR]

Добавлено через 00:19 мин.
Salavat Ahmetov, и

[25-17]

id122694932, первая боле мение на 3 сойдет а вторая не такая

[Illya Pavlovsky]

Хааха

Добавлено через 01:46 мин.
што хто делаэт

Добавлено через 01:47 мин.
што хто делаэт

Добавлено через 05:38 мин.
ахах

Добавлено через 05:41 мин.
ахах

Добавлено через 05:43 мин.
ахах