1. Информатика
  2. Складіть програму для реалізації

Складіть програму для реалізації алгоритму знаходження кількості додатних елементів масиву. Дано масив А[1..5]

anastasiiauski anastasiiauski    3   31.03.2020 13:24    2

Ответы
dfghfgjkhfdjkgh dfghfgjkhfdjkgh  05.08.2020 21:17

var

x: array[1..5]

index: real;

i: integer;

begin

i:=0;

for i to 13 do

begin

 if x[i] < 0

  then

   index++;

end;

writeln('Кількість = ',index);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
тата238 тата238  20.05.2019 01:00
Создать двумерный массив размером nxm.заполнить его произвольным обраом.найти разность первого и последнего элемента массива...
kseniaLi555 kseniaLi555  20.05.2019 01:00
Можете перевести 1536 кбит/с сколько это будет бит, а потом в байты?...
fdods2 fdods2  08.09.2019 16:40
Каким носителем вы пользуетесь чаще всего ?...
AliceandCat AliceandCat  08.09.2019 16:40
Сколько бит в памяти компьютера займёт слово «хотелось»?...
ivolobuewa2013 ivolobuewa2013  08.09.2019 16:40
С3 по логическим функциям. 79 1. дан фрагмент таблицы истиности выражения f x y z f 1 1 0 1 1 0 1 0 0 0 1 1 какое выражение соответствует f 1) x ^ y v z 2) (x v y)-...
dasha5010 dasha5010  19.06.2019 21:20
Ввести массивa(n,m). составить вектор из элементов, находящихся под главной диагональю....
plenkinanatash plenkinanatash  19.06.2019 21:20
Ввести массивa(n,m). определить количество положительных и отрицательных элементов....
EllaNeal EllaNeal  19.06.2019 21:20
1) у исполнителя калькулятор три команды, которым присвоены номера: 1. прибавь 2 2. прибавь 3 3. умножь на 10 выполняя первую из них, калькулятор прибавляет к числу...
Zarxis Zarxis  19.06.2019 21:20
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20]. найти номер первого отрицательного элемента, делящегося на 5 с остатком...
ЗнанияПом1234 ЗнанияПом1234  13.09.2019 22:10
40 . куда на компьютер записывается любая информация. в какие отделы. т.е. какая инф. хранится в жестком диске, оперативной памяти и т.д....

Популярные вопросы