Ответы на вопрос:
program z1; (начало программы)
var n, s, i, c: integer; (раздел описания переменных, n(кол-во чисел), s(сумма чисел), i(счетчик), с(число, введенное с клавиатуры))
begin (тело программы)
writeln ('кол-во чисел? '); (подсказка для пользавателя)
readln (n); (считывание переменной)
s: =0; (обнуляем переменную)
for i: = 1 to n do begin (цикл будет повторяться от 1 до n; т.к в цикле будет несколько действий открываем операторные скобки (begin\end), начало цикла)
writeln ('введите число'); (подсказка для пользавателя)
readln(c); (считывание переменной)
if c> 0 then s: =s+c; (если с> 0 тогда к сумме мы прибавляем число)
end; (конец цикла)
writeln ('сумма=',s); (подсказка для пользавателя и ответ)
readln(s); (считывание переменной)
readln; (считывание)
end.(конец программы)
Популярно: Информатика
-
барынмай13.12.2022 19:34
-
karakatitsa123.01.2023 15:02
-
Dimitriy228114.08.2022 06:15
-
romankulebyaki05.07.2020 05:51
-
Rabika201825.03.2023 21:29
-
aselimsovetova11.06.2020 11:03
-
akerkinjanel4704.05.2020 23:05
-
Pan4ugan26.05.2020 06:44
-
зима1910.06.2021 23:38
-
BlazeySpace0124.08.2020 17:53