Вводится массив, состоящий из целых чисел. Обусловьте, сколько из них положительные.ВХОДНЫЕ
Вводится массив, состоящий из целых чисел. Обусловьте, сколько из их положительные.
ВХОДНЫЕ ДАННЫЕ
Сначала задано число N количество частей в массиве (1N35). Дальше через пробел записаны N чисел элементы массива. Массив состоит из целых чисел.
ВЫХОДНЫЕ ДАННЫЕ
Необходимо вывести одно целое число количество положительных частей массива.
Образцы
ВВОД ВЫВОД
3
1
-2
0
1
Аля Йозеф
упс просто 1 N 35
Денис Панкратенков
а 1 олжен быть в ВЫВОД
1 ответ
Диана Опекушина
Program n1;
var n, k, i, c : integer; a:array[0..35] of integer;
begin
read(N);
if (Ngt;=1)and(Nlt;=35) then c:=n
else
begin
writeln('error');
read(N);
end;
for i:=1 to c do
begin
read(a[i]);
if A[i]gt;0 then k:=k+1;
end;
writeln(k);
end.
Как то так
программка была скопирована из компилятора и там работала по условию
var n, k, i, c : integer; a:array[0..35] of integer;
begin
read(N);
if (Ngt;=1)and(Nlt;=35) then c:=n
else
begin
writeln('error');
read(N);
end;
for i:=1 to c do
begin
read(a[i]);
if A[i]gt;0 then k:=k+1;
end;
writeln(k);
end.
Как то так
программка была скопирована из компилятора и там работала по условию
Сердинов
Женек
program n1; var n, k, i: integer; a:array[1..35] of integer; begin repeat begin write('Введите (1<=N<=35) >>> '); read(n); end; until (n>=1)and(n<=35); for i:=1 to n do begin read(a[i]); if A[i]>0 then k:=k+1; end; writeln('количество положительных элементов массива [',k,']');end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Облако тегов