Помогите пожалуйста... Составьте блок схему и программу для подсчёта количества отрицательных элементов массива (массив с клавиатуры).
Блок схему лень, но вот программа: program Ok; var A:array[1..10] of integer; i,x:integer; begin x:=0; for i:=1 to 10 do read(A[i]); for i:=1 to 10 do if(A[i] < 0) then x:=x+1; write('Кол-во отрицательных элементов массива = ', x); end.
Ого, огромное спасибо!