Напишите программу, которая вводит с клавиатуры 10 целых чисел (положительных и отрицательных) и вычисляет сумму введенных положительных чисел
lovenastya87
3
16.03.2021 08:05
0
Другие вопросы по теме Информатика
akrasnoplakhtyc
26.02.2021 15:00
Ruslan812
26.02.2021 14:57
Nik23218
15.04.2020 22:20
Чай24
16.02.2021 20:50
SorrySorry
08.07.2019 12:10
tarassedelniko
08.07.2019 12:10
Kusya2003
08.07.2019 12:10
EvgeniyNou
08.07.2019 12:10
Wely
08.07.2019 12:10
Популярные вопросы
- Single sex schools сочинение можно кратко...
2 - Может ли гетеросексуальная девушка стать лесбиянкой?...
3 - 1. Найдите угол между часовой и минутной стрелками в 12 ч 20 мин....
1 - Используя материалы с дополнительным источником на странице 52, 53 заполните...
1 - 2. Прочитайте текст. В чём заслуги В. И. Даля в развитии русского языка?...
2 - UNIT be: affirmative, negative and 1 questions 5 Write the sentences with...
2 - Состав предложение по схеме0класс стр 11...
3 - All about orlando orlando bloom...
3 - 1) y=6x^2/3+4x^1/2+2 2) y=7x^1/7+6x^1/6+5x^1/5+3x^1/3+2x+13) y=x^2√^5x^34)...
2 - Характеристика Лемюеля Гуллівера...
3
Объяснение:
var i: byte;
sum,n:integer;
pro:longint;
begin
sum:=0;
pro:=0;
for i:=1 to 10 do
begin
write('Введите ', i, 'число');
readln(n);
sum:=sum+n;
pro:=pro*n;
end;
writeln('Сумма введенных чисел - ', sum);
writeln('Произведение: ', pro);
end.