1. Информатика
  2. Склавиатуры ввели 10 чисел положительных

Склавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел

hdblin530 hdblin530    1   20.03.2019 20:50    23

Ответы
yfcnz1215 yfcnz1215  26.05.2020 09:55

var i,a,s:integer;

begin

for i:=1 to 10 do begin readln(a); if a>0 then s:=s+a; end;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Marysilly Marysilly  14.11.2020 12:48
Что из перечисленных сред или технических устройств являются каналами связи: Выберите один или несколько ответов: Кабель подключения компьютера к сети Телефонный...
Vika140220081 Vika140220081  14.11.2020 12:47
Как выведенную строку в с++ поместить в переменную...
зулик3 зулик3  14.11.2020 12:41
ббалов информатика 7 класс...
vk20001 vk20001  16.09.2019 21:00
Дано описание массива: var a: array [1..27] of integer; здесь oписан массив a из целочисленных значений. при выполнении этого оператора в памяти компьютера будет...
настя7603 настя7603  19.05.2019 15:40
Ниже запросы к поисковому серверу. для каждого запроса указан его код – соответствующая буква от а до г. расположите коды запросов слева направо в порядке убывания...
babka5 babka5  09.04.2020 09:54
Преобразуйте следующие числа в форму с плавающей запятой • 245 • 10,356 • 777,77...
Karina1155 Karina1155  09.04.2020 09:54
Цифровой аудиофайл содержит одноканальную запись звука, частота дискретизации 10,24 кГц, глубина кодирования 8 бит. Какова длительность звучания файла в секундах,...
tar02 tar02  09.04.2020 09:54
По алгоритму восстановите формулу.a1:=1/xa2:=a1/xa3:=a2/хa4:=a3/хy:=a1+a2y:=y+a3y:=y+a4---​...
Nutmi Nutmi  09.04.2020 09:54
Решение задач в ветвлением Вам будет предложено написать программы для решения трех задач. Напишите программу, определяющую наибольшее их двух чисел. Компьютер запрашивает...
MonteCarlo MonteCarlo  22.06.2019 09:10
Нужно составить программу которая вычисляет произведение чисел от 2 до 10...

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