Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
elenalm
22.04.2022 18:28 •
Информатика
50 ! написать программу которая просит ввести 10 чисел и находит сумму всех чисел,которые больше 0 из ряда введенных для pascal abc
Показать ответ
Ответ:
iliacska
07.10.2020 19:47
Program abc;
var a, summa:integer;
begin
summa:=0;
writeln('Введите 10 чисел');
for i:integer:=1 to 10 do begin
readln(a);
if a>0 then summa:=summa+a;
end;
writeln(summa)
end.
0,0
(0 оценок)
Ответ:
Vova50915091
07.10.2020 19:47
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadArrInteger(10);
Writeln(a.Where(t->t>0).Sum);
end.
Пример:
0
12
2
3
5
6
1
2
5
6
42
0,0
(0 оценок)
Популярные вопросы: Информатика
bilainфом
10.11.2022 05:14
Вычислить сумму элементов масива между первым и последним четными элементами. Имеется массив из 10 элементов, заполненный случайными значениями. Вычислить сумму всех элементов, находящихся...
Baka1111
09.02.2020 09:46
Составить программу вычисления следующего выражения: z=x^2+54x-58, если x 0 и z=x^2-4x*8 если x =0...
Zagitova112
09.01.2021 13:25
С ИНФОРМАТИКОЙ 8 КЛАСС Составьте блок-схему задачи и запишите в тетрадь по ней код. Задача: Найти разность, сумму и произведение трёх значений переменных....
Седракян
16.03.2022 21:45
Что общего и пиктограммы и символа?...
zeynalova79
30.01.2023 17:14
Постройте таблицу истинности: Информатика. 1)F=A∨B∨¬C 2)F=¬(B∨C)∨A 3)F=(B∨C)∧A...
Maxutka007
20.07.2020 01:17
Что общего у пиктограммы и символа?...
RoseIce
16.04.2020 06:55
Поступает последовательность целых положительных чисел, 0 - конец последовательности. записать каждое число последовательности в обратном порядке. например, 12345 - 54321. создать...
Никола11111111
22.07.2020 02:44
Создать базу данных , выполнить все пункты ( спортсмены могут быть любые , главное выполнить)...
ziatiok2016p074n4
20.10.2021 09:27
Создайте граф арифметического выражения (x^x^9+15/4)/3+8/x. в листьях могут быть только числа и х, в качестве узлов-предикатов могут выступать узлы +, -, *, /, ^ (циркумфлекс, операция...
Orisha20
10.09.2020 19:23
Собьяснением 2 № 17320 добавить в вариант логическая функция f задаётся выражением ((x ∧ y) ∨ (y ∧ z)) ≡ ((x → w) ∧ (w → дан частично заполненный фрагмент, содержащий неповторяющиеся...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, summa:integer;
begin
summa:=0;
writeln('Введите 10 чисел');
for i:integer:=1 to 10 do begin
readln(a);
if a>0 then summa:=summa+a;
end;
writeln(summa)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadArrInteger(10);
Writeln(a.Where(t->t>0).Sum);
end.
Пример:
0
12
2
3
5
6
1
2
5
6
42