Написать программу, запрашивающую пять чисел и суммирующию только положительные из них. значение суммы вывести на экран.
105
398
Ответы на вопрос:
uses crt;
const n=5;
var a: array[1..n] of integer;
s,i: integer;
begin
for i: =1 to n do
read(a[i]);
for i: =1 to n do
write(a[i]: 3);
for i: =1 to n do
begin
if (a[i]> 0)and(a[i]< > 0) then s: =s+a[i];
end;
writeln;
write(s);
end.
Var x,i: integer; beginx=10; for i: =1 to x doif i mod 3=0 then write(i,' '); ///можно без кавычекend.
Популярно: Информатика
-
Uhbif62725.02.2022 02:43
-
dibtdi21.04.2020 04:42
-
encl306.12.2021 21:14
-
Anel757530.05.2023 09:17
-
200619790987626.03.2021 16:29
-
mastervydy15.05.2020 08:40
-
snoopelol530.11.2020 16:29
-
avagimyan200212.06.2023 09:45
-
Дашакот234568104.03.2020 11:56
-
smile150623.05.2023 09:50