Массив..

[Liinad]

Друзья кто может помочь сделать лёгкую программу на массив. Я понял все предыдущие темы, да и массивы тоже немного, ну вот эта мне чучуть не по силам Условия такие ( Нужно создать массив, и вывести количество элементов массива которые меньше нуля, во второй половине массива Я начал делать , но закончить так и не получилось


var
a : array [1..20] of integer;
i,n : integer;
begin
writeln('Введите количество элемента массива');
readln(n);
writeln('Введите элемент массива');
For i:=1 to n do
readln(a[i]);
For i:=n div 2 to n do
begin
If a[i]<0 then writeln('Число меньше нуля ', a[i]);
If a[i]>0 then writeln('Числа меньше нуля нет');
end;
writeln('n', n);

end.

Помогите пожалуйста, нужно очень срочно Это последняя программа которую мне нужно сдать на этому модульном контроле

[brunis]

хмм. Толком непонятно где у вас возникает ошибка, только непонятно, что вы хотели сказать последней строчкой в коде. И зачем ты выводишь каждый элемент? В условии же сказано, что надо просто вывести их количество. Так что заведи новую переменную и инкремируй его каждый раз в условном операторе ну и выведи в конце.
Также начало переменной счётчика увеличь на еденицу т.к. вы наченаете проверку с последнего елемента первой части массива, а не с начала второй.

[Liinad]

Сообщение от brunis

хмм. Толком непонятно где у вас возникает ошибка, только непонятно, что вы хотели сказать последней строчкой в коде. И зачем ты выводишь каждый элемент? В условии же сказано, что надо просто вывести их количество. Так что заведи новую переменную и инкремируй его каждый раз в условном операторе ну и выведи в конце.
Также начало переменной счётчика увеличь на еденицу т.к. вы наченаете проверку с последнего елемента первой части массива, а не с начала второй.

В последней строчке я пытался вывести количество элементов, но я знаю что написал не правильно, я просто не могу понять как именно написать, чтобы у меня выводило количество элементов со второй половины массива

[brunis]

Я же говорю заведите переменную и увеличивайте её в if-e и вместо n поставте её

[brunis]

примерно так.

var
a : array [1..20] of integer;
i,n : integer;
с{наша переменная}:integer;
begin
writeln('Введите количество элемента массива');
readln(n);
writeln('Введите элемент массива');
For i:=1 to n do
readln(a[i]);
c:=0;
For i:=n div 2 + 1 to n do
begin
If a[i]<0 then Begin 
  writeln('Число меньше нуля ', a[i]);
  c:=c+1;  //увеличиваем
End;
end;
writeln('количество элементов', c); //выводим

end.

[Liinad]

Спасибо вам , я теперь понял)