tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу нахождения
Составьте программу нахождения суммы положительных значений массива.дан массив состоящий из 15 элементов.значение массива произвольные числа.
hromovaysoydwfz
1 13.07.2019 09:10
1
Ответы
7hakep7p0739i
03.10.2020 02:48
Const
nmax=5;(любое число можешь поставить)
type
mas = array [1..nmax] of integer;
var
A:mas;
sum,n:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
if (A[i] > 0) then sum:=sum+A[i];
writeln('Summa=',sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Amalya15
02.09.2021 12:38
Проанализируй и расскажи, какую информацию можно получить из этих картинок....
Dexter8122
16.06.2019 16:15
Формула на первой картинке, на второй картинке....
alenabarsukova20
17.09.2019 17:02
Краткое сообщение на тему компьютер в качестве художника , примерно 10 (длинных! ) предложений....
envoyfromhell
17.09.2019 18:20
Информационное сообщение объемом 2,5 кбайт информации содержит 2560 символов. сколько символов содержит алфавит, при которого составлено сообщение? только правильный ответ!...
Бенди3007
17.09.2019 18:20
Для чего нужны слои в растровом редакторе?...
crystall5555
16.03.2020 19:06
8 КЛАСС Вычислить и вывести на экран кол-во воды, если перед вами стоит задача полностью наполнить водой бассейн....
Опооовоа
16.03.2020 19:07
8 КЛАСС РЕШИТЕ составить две программы и записать в тетрадь к следующим задачам: 1) Вычислить и вывести на экран кол-во воды, если перед вами стоит задача полностью наполнить водой...
YarikCage
16.03.2020 19:08
быстрее плз!!Сколько трёхзначных чисел можно составить из цифр 0, 3, 9 при условии, что цифры не должны повторяться?...
gulaydavay
16.03.2020 19:13
Решите Используя онлайн - сервис Метро Москвы ( например, Яндикс Митро), постройте граф и матрицу смежности для станций метро Белорусская, Охотный Ряд, Третьяковская, Таганская,...
1355101226элина
02.11.2020 18:45
Информатика, основы роботы с однотипными массивами...
Популярные вопросы
Напишите тему и главную мысль произведения в.г короленко в дурном обществе...
1
Welcome to chatterplace! chatterplace is a large farm. there is an old house...
1
Варифметическом прогресси a1=16,a2=38.найдите а10 и член который его сумма равна...
3
Действующее значение эдс, приложенной к электрической цепи переменного тока,...
2
Как расположить частицы kr, ,se(2-) по возрастанию их радиуса?...
1
Все перечисленные понятия относятся к институтам духовной сферы общества, за...
3
Встаде было 36коров,что на 18больше,чем телят.сколько коров и телят было в стаде...
2
У1-ого четиреуголника а=72мм и b=165мм.у 2 -ого четиреуголника а=82мм и b=165...
1
А.к толстой илья муромец о чем это стихотворение? нужен точный грамотно сформулированный...
3
Сестра старше брата на 6лет,а через год будет старше в два раза. сколько лет...
2
nmax=5;(любое число можешь поставить)
type
mas = array [1..nmax] of integer;
var
A:mas;
sum,n:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
if (A[i] > 0) then sum:=sum+A[i];
writeln('Summa=',sum);
end.