Решите это задание. Надо написать решение, как вы это сделали

Блок-схема - в прилагаемом файле.

Var a,n,i,k:integer; 
Begin 
Readln(n); 
k:=0; 
i:=0;
repeat
i:=i+1;
readln(a); 
if a>0 then k:=k+1; 
until i=n;
Writeln(k); 
End.

Пример:
5
53
-78
67
-12
40
3

Інформатика – це галузь науки, що вивчає структуру і загальні властивості інформації, а також питання, пов’язані з пошуком, збиранням, перетворенням, зберіганням, поширенням і використанням інформації у різних сферах людської діяльності.

Расширение позволяет пользователю, не открывая файла, определить его тип. Расширение имени обычно задается программой автоматически при создании файла