Помогите пожалуйста... Составьте блок схему и программу для подсчёта количества...

0 голосов
41 просмотров

Помогите пожалуйста...
Составьте блок схему и программу для подсчёта количества отрицательных элементов массива (массив с клавиатуры).


Информатика (15 баллов) | 41 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Блок схему лень, но вот программа:
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.

(406 баллов)
0

Ого, огромное спасибо!