Găsiți cele mai recente numărul de numere negative în matrice pascal, domnilor

Aici este codul curat și simplu
Linia №7 am înregistrat o variabilă pentru a stoca indicele elementului negativ.
În linia №19 specificăm condiția în care 10 sunt în mișcare toate numerele generate și a căutat printre ei negativ, iar dacă numărul este negativ, atunci indicele (număr) este stocat în variabila K (linia №21).
În linia №23 înregistrat condiție: în cazul în care variabila «K» este mai mare decât 0 (adică, există elemente negative), se afișează un mesaj (linia №24). In caz contrar (în cazul în care nu există elemente negative și «K» și rămâne egal cu 0), se va indica (linia №26)

Găsiți cele mai recente numărul de numere negative în matrice pascal, domnilor

răspunsuri verificate conțin informații care sunt credibile. Pe „cunoaștere“, veți găsi milioane de decizii, marcate de utilizatori ca cele mai bune, dar verifică doar răspunsul de către experții noștri oferă o garanție a corectitudinii sale.

Nu va specifica epitete la codul, lasă-l să vorbească pentru el însuși.
Algoritmul este după cum urmează: scanare matrice de la capăt la început. Și ieșirile întâlni cât mai curând un element negativ. Și dacă nu te-a îndeplinit înainte de începerea matrice, atunci aceste elemente în matrice nu este.

const
n = 20; <размер массива>
var
a: array [1..n] din întreg;
i: integer;
găsit: boolean;
începe
Randomizează;
Writeln ( 'elementele de matrice');
pentru i: = 1 la n do începe
a [i]: = random (21) -10; <случайное число на интервале [-10;10]>
Write (a [i]: 4)
se încheie;
writeln;
<собственно задание>
i: = n;
repeta
găsit: = (a [i]<0);
Decembrie (i)
până la (i = 0) sau stabilit;
dacă este găsit apoi writeln ( „Numarul elementului este“, i + 1)
Writeln altceva ( 'elemente negative au')
end.

Soluție de testare:
elementele de matrice
-3 5 3 2 -2 -2 -5 7 9 1 -3 -2 -1 -6 1 -6 2 8 7 1
Numărul de element este de 16