Egy érdekes feladat? Lehetséges ez?

Hogy lehetséges-e?

Persze, ráadásul nem is nehéz.

Tömböket tudsz kezelni? Számokat tudsz generálni?

Rakd össze és végül egy feltételes összegzés az elemeken.

Nem, nem túl érdekes.

Igen, lehetséges.

> Egy érdekes feladat?

Nem, ez nem az, számomra sem.

> Lehetséges ez?

Hát figyelj, az a program, amiben ezt a kérdést kiírtad, milliószor bonyolultabb dolgokat végez, és azt is lehetséges volt megírnia valaki(k)nek.

> Kell készíteni

Sok sikert hozzá! :)

Mivel nyelvről nem volt szó, ezért írtam egy szösszenetet Pascalban:

program tomb8;

var tomb : array[1..8] of integer;

i, osszeg : integer;

negativ : Boolean;

begin

negativ := False;

i := 2;

Randomize;

tomb[1] := Random( 500 );

while ( not negativ ) or ( i < 9 ) do

begin

tomb[i] := Random( 1000 ) - 500;

if tomb[i] < 0 then negativ := True;

Inc( i );

if ( i > 8 ) and ( not negativ ) then i := 2;

end;

i := 1;

osszeg := 0;

while tomb[i] > 0 do

begin

osszeg := osszeg + tomb[i];

Inc( i );

end;

WriteLn;

for i := 1 to 8 do Write( tomb[i]:5 );

Write( osszeg:10 );

ReadLn;

end.

Magyarázatot nem mellékelek :)

Én nem vagyok benne biztos, hogy ezt a feladatot ebben a formában egy tanár adta ki.

Bár ki tudja...

Amúgy látom végigfutott a pontozó hurrikán és mindenkit lehúzott, szép. :)

'Amúgy látom végigfutott a pontozó hurrikán és mindenkit lehúzott, szép. :)' Már majdnem olyan mint a politika rovat.

Állítom a 'pontozók' 90%-a nem is tudta értelmezni a rövid 'szösszenetemet' - pedig mindent teljesít amit a kérdező írt -