В массиве случайных чисел посчитать количество положительных элементов на языке паскаль

Program array1;uses crt;var kol,i,N:integer; a:array [1..100] of integer;beginrandomize;write (Vvedite kolichestvo elementov);read (N);kol:=0;for i:=1 to N dobegina[i]=random (100);if a[i]>0 then kol:=kol+1;end;write (Kolichestvo elementov =, kol);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.