Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kozinasofia2006
04.06.2020 03:47 •
Информатика
Последовательно вводятся n целых чисел найти сумму всех положительных среди них проверить для n =10
Показать ответ
Ответ:
Gghfv
31.07.2020 21:52
Var A:array [1..10] of integer;
I,S:integer;
begin
for i:= 1 to 10 do begin
writeln('A[',i,']=');
readln(A[i]);
end;
S:=0;
for i:= 1 to 10 do
if (A[i]>0) then s:=s+A[i];
writeln('S=',S);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
artemp20012
23.04.2022 01:52
Построить на промежутке [-2, 2] с шагом 0,4 таблицу значений функции: К таблице применить один из видов автоформата....
MarryDied
27.10.2022 18:34
2-3 примера диаграмм в младших классах...
mrzadvorgetski
05.04.2022 03:18
Вообще с этим бредом....
DFleX
15.03.2021 02:47
Результаты олимпиады Во время проведения олимпиады каждый из участников получил свой идентификационный номер — натуральное число. Необходимо отсортировать список участников олимпиады...
Syrup75
07.07.2022 10:00
с ошибкой с ошибкой >...
AlinnkaBro
27.09.2021 19:21
Реши задачу. В начале учебного года пятиклассники избрали старосту, председателя совета отряда, звеньевых первого, второго и третьего звеньев. Их имена: Полина, Боря, Владимир, Гриша...
Хорошистка541
19.10.2020 14:40
Вкаком случае форма причастия образована неправильно ? 1) закрутить 2) возвращаться --возвращающийся 3) решать решённый 4)изучать...
лтвтыьц
25.11.2022 02:22
Выпишите из текста всегда твёрдые согласные столько раз,сколько они в нём встречаются.вот текст . не надорвите от смеха живот. в доме смышлёная мышка живёт. мышка, хозяин,все щели...
ubsxydbzed
25.11.2022 02:22
Перевести ! ) it was my grandma is birhhday so we went to her housw to celebrate with her . our family is big and friendly . my grandparents have two sons and a daughter , six grandchildren...
котак5
25.11.2022 02:22
Сопоставьте отношение генерала и пугачева к любовному чувству гринёва...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
I,S:integer;
begin
for i:= 1 to 10 do begin
writeln('A[',i,']=');
readln(A[i]);
end;
S:=0;
for i:= 1 to 10 do
if (A[i]>0) then s:=s+A[i];
writeln('S=',S);
readln;
end.