Дан массив целых чисел, заполненный с клавиатуры. Найти количество положительных элементов массива.
(При заполнении массива необходимо ввести положительные, отрицательные и нулевые элементы)
vachevardanyan
1
28.02.2020 23:36
1
Другие вопросы по теме Информатика
TOFeFE
23.03.2021 12:08
lolaaaaa2
23.03.2021 12:10
ruevtop
23.03.2021 12:18
averinatatka
23.03.2021 12:35
Аранида
23.03.2021 12:36
234432343342
23.03.2021 12:37
ZloyFuzz
23.03.2021 12:37
Настіяа
23.03.2021 12:39
ufs09225
23.03.2021 12:40
Популярные вопросы
- Какой вид духовной (церковной) музыки был распространён в Древней...
2 - 4. Верны ли следующие суждения? А. Для веществ немолекулярного...
3 - Скласти таблицю ,,Мирні договори з Німеччиною та її союзниками...
3 - Вставить пропущенные буквы, объяснить написание суффиксов. ...
2 - 1). Петя купил 5 тетрадей по а рублей и 3 альбома по в рублей....
3 - Сделайте точнее посчитайте правильно...
1 - . По графику функции определить: а) область определения функции;...
2 - Найбільш молодими відкладеннями на території україни є А) крейдові...
3 - Поясніть на прикладах сполук, виражених формулами cl2, NaCl CF4,...
2 - как вы думаете востребованы ли оркестры русских народных инструментов...
3
program mass_maxnech_kolkrat5;
const n=10;
var
i,sum:integer;
a:array[1..n] of integer;
begin
sum:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i]>0) then sum:=sum+a[i];
end;
write(sum);
end.