[Logo] Mendo Judge Discussion Board - Forums
  [Search] Search   [Recent Topics] Recent Topics   [Hottest Topics] Hottest Topics   [Members]  Member Listing   [Groups] Back to home page 
Izbori  XML
Forum Index » Задачи од национални натпревари
Author Message
Goran1



Joined: 22/09/2010 23:02:31
Messages: 18
Offline

Moze nekoj da se obide da mi ja najde greskata? Resenieto mi raboti samo na 4 test slucai.


program izbori;
var n:1..50;
g:array[1..50] of 1..100;
min,p,i,j:longint;
begin
readln(n);
for i:=1 to n do
readln(g[i]);
for i:=2 to n do
for j:=i+1 to n do
if g[j]>g[i] then
begin
p:=g[i];
g[i]:=g[j];
g[j]:=p;
end;
min:=0;
i:=2;
while g[i]>=g[1] do
begin
g[i]:=g[i]-1;
g[1]:=g[1]+1;
if g[i]<g[i+1] then i:=i+1;
min:=min+1;
end;
write(min);
readln;
end.

This message was edited 1 time. Last update was at 29/03/2012 23:52:54

MOI



Joined: 07/07/2010 16:31:48
Messages: 447
Offline

Јас ги најдов овие грешки (можно е да има и други):
      1. readln(g[i]) треба да биде read(g[i]) - истата грешка што ја дискутиравме во другата тема
      2. алгоритамот не чини - види го овој пример:
                   3
                   1 6 6
Goran1



Joined: 22/09/2010 23:02:31
Messages: 18
Offline

Blagodaram, gi popraviv greskite. Primerot bas mi pomogna
 
Forum Index » Задачи од национални натпревари
Go to:   
Powered by JForum 2.1.8 © JForum Team