tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Как составить постановку,
Как составить постановку, алгоритм и в pascale программу подсчитывающую количество положительных элементов массива w из 9 чисел. значения элементов массива ввести с клавиатуры. только можно поподробней)
rowa9712men
1 17.06.2019 06:50
8
Ответы
s1072966
13.07.2020 22:20
Var
W:Array[1..9] of Integer;
i,k:Integer;
Begin
for i:=1 to 9 do
Read(W[i]);
for i:=1 to 9 do
if (W[i]>0) then k:=k+1;
Writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kirillstetskii
05.02.2021 12:55
Дана программа: Program Primer; Var N,result : real; Begin Writeln( Введите значения переменной N ); Write( N= ); Readln(N); Result := sqr((3+N)*11); Writeln (result:8:0);...
bogdanostapenko
05.02.2021 12:55
Нарисовать: составить алгоритм вычисления значения выражения длина стороны треугольника равна а периметр равен п длины двух других сторон равны между собой найти стороны...
Karakatica44
05.02.2021 12:53
Построить блок-схему вычисления функции:...
lerapro123
16.12.2021 14:00
Https://link.brawlstars.com/invite/gameroom/ru?tag=XSY6KQF7...
kasimova20001
16.12.2021 13:59
Задание стиля форматирования абзацев основного текста под именем Text в соответствии с параметрами:а) шрифт Newton С, кегль равен 8 пунктов Дидо (8,526 pt);б) величина...
Алалутала
16.12.2021 13:56
Паскаль. вывести на экран три введенных с клавиатуры числа в обратном порядке...
ИгорьВсемогущий
29.09.2019 22:07
Дана матрица v1(4,4), ввести значения по строкам. найти произведение элементов столбца, содержащего минимальный элемент....
annauskova21
29.09.2019 23:10
Впаскале.за год ребенок прибавляет в весе 7 кг. напечатать прибавку в весе ребенка за 5 лет...
KosmosUnicorn
29.09.2019 23:10
Вклассе 35 человек двадцать пять читателей школьной библиотеки 20 читателей городской библиотеки сколько человек читают в 2 библиотеках? по действиям с кратким пояснением...
201102
29.09.2019 22:17
Результатом якої функції будуть всі значення з ряду, які повторюються найбільшу кількість разів? 1.mode.muit2.frequency3.mode.sngl4.stdev.p...
Популярные вопросы
Запишите на паскале программу нахождения среднего арифметического...
2
Утети люси было 7 пакетиков с семенами.она купила несколько пакетиков...
1
Периметр прямоугольника 36 см.сумма длинн трёх его сторон 25 см.чему...
1
Исправить ошибку в предложении: продано около девяносто билетов...
1
Перевести на казахский. не ходи на улицу. покрываются снегом. одевают...
1
Сочинение с числительными на тему день защитника отечества...
1
Корень слова цыкнуть, цыганочка, цигейка, цикорий, панцирь, цыкать,...
2
Слова отломленный, расколотый,отломивший,расколовший ,отломив,расколов...
2
Из чисел 4,11и 7 составить сумму и две разности. записать сумму,...
2
Кнаименьшему общему знаменателю дроби 9/10 и 1/20,7/15 и 3/5,5/6...
1
W:Array[1..9] of Integer;
i,k:Integer;
Begin
for i:=1 to 9 do
Read(W[i]);
for i:=1 to 9 do
if (W[i]>0) then k:=k+1;
Writeln(k);
end.