Pascal ABC SOS!
-
Автор
Помогите решить задачи в Pascal ABC...
Кто решат в долгу не останусь....
1.Последовательно вводятся N целых чисел.Найдите Сумму всех положительных среди них....
2.Последовательно вводятся N целых чисел.Найдите максимальное из них..
Ответ в ЛС если можно.... -
пфф. че тут решать то?
-
Doctor I-Bolit, Ха
-
Автор
Doctor I-Bolit ну реши ....
-
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 мин.
2uses 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. -
id122694932, гуглер профит
-
Давай досвиданья
-
Мне даже лень паскаль открывать)
Я это классе в 7 проходил. -
Автор
id122694932, Не правильно не так надо
-
легко
-
-
а как? гонишь что ли?
-
ХАхаа
-
**korshun** а это причём тут?
-
Добавлено через 00:19 мин.
Salavat Ahmetov, и
