Предмет: Информатика,
автор: alenaASD
Помогите пожалуйста!!!!
Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитывает количество положительных чисел среди элементов массива.
Входные данные
Сначала задано число N — количество элементов в массиве (1N10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.
Выходные данные
Необходимо единственное число - количество положительных элементов в массиве.
Примеры:
входные данные
5
1 2 3 -1 -4
Выходные данные
3
Ответы
Автор ответа:
0
Pascal:
var i,n,kol:longint; a:array[1..10000] of longint;
begin
readln(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then inc(kol);
writeln(kol);
end.
var i,n,kol:longint; a:array[1..10000] of longint;
begin
readln(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then inc(kol);
writeln(kol);
end.
Автор ответа:
0
Зачем лонгинт?Не многовато?
Автор ответа:
0
И еще,в конце цикла надо ставить end;
Автор ответа:
0
C end'ом мой косяк, а longint - в условии не указано, какой величины может вводиться число и, теоретически, оно может быть достаточно большим, чтобы применение longint было оправданым
Интересные вопросы
Предмет: Биология,
автор: emarkova1610
Предмет: Биология,
автор: anzelairismetova4
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: Naya0708
Предмет: Геометрия,
автор: Riruka