Паскаль 2 задачи! Сессия(
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
RE: Паскаль 2 задачи! Сессия( - 2008-12-21 15:41:13.740000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Я не любитель халявы. Вторую тебе помогут тут решить (имхо), а вот заморачиваться рисованием шапок в первой задаче врядли будут заниматься. Обычно за такое платят.
|
|
|
RE: Паскаль 2 задачи! Сессия( - 2008-12-21 16:12:31.333333
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
var a : array[1..1000] of longint;
i,s,n,MAX,last_null : integer;
begin
readln(n);
last_null:=0;
s:=0;
for i := 1 to n do read(a[i]);
MAX:=0;
for i := 1 to n do if(a[i]>0) then inc(MAX);
for i := 1 to n do if(a[i]=0) then last_null:=i;
if(last_null>0) then for i:= last_null to n do s:=s+a[i];
writeln('SUMA=',s,'POLOZHYTELNYE=',MAX);
end.
Вторая. А первую действительно так быстро не сделаешь. Как я понял, две последних строчки не относятся к задаче?
|
|
|
RE: Паскаль 2 задачи! Сессия( - 2008-12-21 16:57:40.630000
|
|
|
Login_hochu
Сообщений: 1471
Оценки: 0
Присоединился: 2007-07-15 14:19:23.423333
|
quote:
Как я понял, две последних строчки не относятся к задаче? Вроде относятся. Массисв отсортировать просют.
|
|
|
RE: Паскаль 2 задачи! Сессия( - 2008-12-22 00:30:35.633333
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
Противоречие получается. Сначала n целочисленных чисел а потом целочисленная часть. Наверно, просто имеется в виду, что все единицы в начало массива поставить. Если тебе не срочно, то завтра доделаю.
|
|
|
RE: Паскаль 2 задачи! Сессия( - 2008-12-22 14:55:13.220000
|
|
|
жжж^слоник^жжот
Сообщений: 1806
Оценки: 10
Присоединился: 2008-05-20 11:08:35.946666
|
До среды надо сделать. Спасибо
|
|
|
RE: Паскаль 2 задачи! Сессия( - 2008-12-22 16:56:33.236666
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
var a : array[1..1000] of longint;
i,s,n,MAX,last_null,last_one,tmp : integer;
begin
readln(n);
last_null:=0;
last_one:=1;
s:=0;
for i := 1 to n do read(a[i]);
MAX:=0;
for i := 1 to n do
if(a[i]>0) then inc(MAX);
for i := 1 to n do if(a[i]=0) then last_null:=i;
if(last_null>0) then for i:= last_null to n do s:=s+a[i];
for i:=1 to n do
if(a[i]=1) then
begin
tmp:=a[last_one];
a[last_one]:=1;
a[i]:=tmp;
last_one:=last_one+1;
end;
for i := 1 to n do write(a[i],' ');writeln();{Если выводить масив не нужно, эту строку убрать}
writeln('SUMA=',s,'POLOZHYTELNYE=',MAX);
end.
Ну вот так вроде…
|
|
|
|
|