Hogyan kell a delphi-ben elkészíteni ezt a programot?

[link]

gugliztam

1, Létrehozod a tömböt általalad választott értékekkel: legyen benne negatív és pozitív szám

2, Nullázod a változókat, amiben számolod

a, a negatív értékeket

b, a pozitív értékeket

3, for ciklussal végijárod a tömböt, a cikluson belül

a, ha a szám kisebb nullánál: eggyel növeled a negatív értékeket számláló változó értékét

b, ha a szám nagyobb nullánál: eggyel növeled a pozitív értékeket számláló változó értékét

4, A ciklus után kiírod a két számláló változó értékét a megfelelő magyarázatokkal

Tudom..... de én ilyen vagyok:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var i, max, min, nul : byte;

temperature : array[1..20] of shortint;

begin

max := 0;

min := 0;

nul := 0;

Randomize;

for i := 1 to 20 do

begin

temperature[i] := Random(41) - 20;

Write(temperature[i]:4);

end;

for i := 1 to 20 do

begin

case temperature[i] of

-20..-1 : Inc(min);

1..20 : Inc(max);

0 : Inc(nul);

end;

end;

WriteLn('Min: ', min, ' Max: ', max, ' Nulla: ', nul);

ReadLn;

end.

@SimkoL:

Én bezzeg gonoszabb...

program pozneg;

const eleje=1;ivege=10;jvege=10;vege=ivege*jvege;

var i,j,k,pozitiv,negativ,nulla:integer;

homerseklet:array[eleje..vege] of integer;

BEGIN

randomize;pozitiv:=0;negativ:=0;nulla:=0;for i:=eleje to vege do

homerseklet[i]:=random(1001)-500;k:=eleje;

for j:=eleje to jvege do begin for i:=eleje to ivege do begin

if abs(homerseklet[k])<100 then write(' ');if homerseklet[k]>0 then

write(' ');write(homerseklet[k]/10:2:1, ' ');inc(k);end;writeln;end;

for i:=eleje to vege do begin if homerseklet[i]>0 then inc(pozitiv)

else if homerseklet[i]<0 then inc(negativ) else inc(nulla);end;

write('Pozitív: ',pozitiv,', Negatív: ',negativ,', Nulla: ',nulla);

END.