Дан массив случайных чисел а [1..6] из промежутка [-10; 14]. составить программу нахождения суммы положительных элементов массива.
11123323333323232233
2
16.05.2019 10:53
0
Другие вопросы по теме Информатика
Noob335
09.03.2019 21:10
КейтKate
08.09.2019 08:20
ViKtOrIaSmIrNoVa2007
08.09.2019 08:20
nikitaximik
08.09.2019 08:20
Itupoypomogite1
06.12.2020 08:54
руслан797
06.12.2020 08:55
LittlePanda3
06.12.2020 08:55
Популярные вопросы
- 60 1 сор по каз яз 2 четверть 6 класс с переводом...
3 - Потенциальные женихи софьи горе от ума...
1 - Особливості поетичної мови творів гейне...
3 - Расчет сложной электрической цепи...
2 - 1. назовите комплексные соли: а) k[co(nh3)2(no2)4] б) [co(nh3)5br]so4 в) kal(so4)2...
3 - Если начислено 108811,28 доход, то как исчислить индивидуальный подоходный налог...
1 - Вмолекуле какого вещества имеется пи связь ? азот водорода воды соляной кислоты...
2 - Надо ответы до 15: 00. это контрольная по изобразительному искусству . изо...
2 - Определить, какое значение переменной y будет выведено после выполнения фрагмента...
3 - Добыча железной руды открытым в отчётном году составляет 80 % от общей добычи...
3
program raf105;
var
a: array[1..6] of integer;
i,sum: integer;
begin
for i:=1 to 6 do
begin
a[i]:= random(-10,14);
if a[i] > 0
then sum+= a[i];
writeln(a[i]);
end;
writeln('Сумма положительных элементов: ',sum);
end.
Язык PascalABC