Дан массив а(10), заполненный датчиком случайных чисел. подсчитать и вывести на экран сумму положительных элементов массива.
ТвояМилая
1
22.05.2019 06:10
0
Другие вопросы по теме Информатика
RoxXL
11.03.2019 13:47
sopyryaeva1976
27.02.2019 12:40
kilutikkkasd
11.03.2021 07:12
CNikolas2001
11.03.2021 07:12
mashaa2660
30.07.2019 05:00
lear8765
29.09.2020 21:52
markvT
29.09.2020 21:32
alexeyivanovnk1234
29.09.2020 21:27
Популярные вопросы
- Твір на тему Національні символи і традиції в повісті Миколи Гоголя...
1 - РЕШИТЕ КТО ТО !! Два конькобежца стартовали на дистанцию 10 000 м....
2 - Тест в скайсмарте 7заданий >...
2 - Українська мова. Складносурядне речення. Третє завдання на фотці. Там...
2 - 12c_(m+3)^(m-1)=55a_(m+1)^(2) решить уравнение относительно m...
1 - Почему граница суммарной солнечной радиации не совпадает с границей...
1 - Розв язати рівняння 5•(х-19)=100....
3 - 4-тапсырма. Мақал-мәтелдердегі тұйық етістіктерд Істеу қиын, сынау...
3 - 4. Решите систему уравнений графическим :(у = 2 – Х;(2x + y = 5....
1 - Как думаете, сколько весит моя мама? Рост 169 см, 38 лет...
2
uses crt;
var a:array[1..10] of real;
i:integer; s:real;
begin
clrscr;
s:=0;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
if a[i]>0 then s:=s+a[i];
end;
write('s=',s);
end.