A legújabb számos negatív számok pascal tömb, uraim

Itt a kód tiszta és egyszerű
Vonal №7 felvettünk egy változó tárolja az index a negatív elem.
Összhangban №19 mi határozza meg a körülmények, amelyek között 10 mozgó összes generált számok és keresett köztük negatív, és ha a szám negatív, akkor az index (szám) van tárolva a K változó (line №21).
Összhangban №23 rögzített állapot: ha a változó «K» nagyobb, mint 0 (azaz, vannak negatív elemek), akkor egy üzenet jelenik meg (line №24). Ellenkező esetben (ha nincs negatív elemek, és a «K» és egyenlő marad 0), jelzi (line №26)

Ellenőrzött válaszok információkat tartalmaznak, ami hiteles. A „tudás” meg fogja találni több millió döntések jelölt felhasználók, mint a legjobb, de csak akkor ellenőrzi a válasz szakembereink ad garanciát annak helyességét.

Nem adja a jelzőket a kódot, hadd beszéljen magáról.
Az algoritmus a következő: átvizsgálja a tömb végéről az elejére. És amint kilép a találkozás egy negatív elem. És ha nem felel kezdete előtt a tömb, akkor ezeket az elemeket a tömb nem.

const
n = 20; <размер массива>
var
egy: ​​array [1..n] az egész;
i: integer;
talált: logikai;
kezdődik
Véletlenszerű;
WriteLn ( 'array elemek');
i: = 1-től n-do kezdeni
a [i]: = Random (21) -10; <случайное число на интервале [-10;10]>
Írása (a [i]: 4)
végén;
writeln;
<собственно задание>
i: = N;
ismétlés
talált: = (a [i]<0);
Dec (i)
amíg (i = 0), vagy talált;
ha találtak majd WriteLn ( „száma az elem”, i + 1)
mást writeln ( "negatív elemek)
végén.

Vizsgálati oldat:
tömb elemeit
-3 5 -2 3 2 -2 -5 7 9 -3 1 -2 -1 -6 1 -6 2 8 7 1
elemszám 16