1. Информатика
  2. Написать листинг: дан

Написать листинг: дан массив из 10 натуральных элементов. Найти количество положительных элементов и вывести их позиции.

viktoria20000000 viktoria20000000    3   13.04.2021 12:28    0

Ответы
коля564 коля564  13.05.2021 12:35

var a:array [1..10] of integer;

s,x,i:integer;

begin

 for i:=1 to 10 do begin

   readln (x);

   a[i]:=x;

   end;

   write ('Элементы: ');

   for i:=1 to 10 do

     if (a[i]>0) then

       write (i,',');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sargisxachatry sargisxachatry  01.04.2021 14:43
Определи причину по которой нельзя самостоятельно открывать крышку системного блока и пытаться исправить возникшую проблему ! ​...
spark74 spark74  09.04.2020 19:30
Алгоритм поиска заданного слова в текстовом документе....
vovaaan1 vovaaan1  22.05.2020 10:31
За какую асимптотику можно решить данную задачу? Необходимо транспонировать квадратную матрицу (поменять местами элементы, симметричные относительно главной диагонали)...
oksanaminenko777 oksanaminenko777  22.05.2020 10:31
нет, Информатика черный экран.Что делать?!​...
dashafns29 dashafns29  22.05.2020 10:30
8. Записать (словом) словами: Количество измерений громкости звука за единицу времени.​9. Записать (словом) словами: Форма записи звука в виде колебаний.10. Записать (словом)...
zephy zephy  23.05.2020 11:29
Скільки робочих аркушів може мати робоча книга?...
jartan jartan  22.05.2020 10:30
1) Створи узор із горизонтальних ліній.2) Створити узор у клітинку3) Створити узор на половинках полотна4) Створити узори на четвертинках екрану Очень...
kolodina10 kolodina10  22.05.2020 20:32
Преобразуй алгоритм в программу на языке Паскаль:...
sviridovakatya8 sviridovakatya8  22.05.2020 10:30
За какую асимптотику можно решить данную задачу? Найдите первое вхождение буквы A в строке длины n. 2 попытки O(1) O(logn) O(n−−√) O(n) O(n2)...
Era383727 Era383727  23.05.2020 11:27
Чертежник находится в точке (0;0) и его перо поднято. В ходе выполнения алгоритма, представленного ниже, Чертежник должен изобразить отрезок от точки (2;2) до точки (7;3)...

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