Найди сумму положительных элементов массива, заданных генератором случайных чисел от -30 до 40.
A[i]:= random (70)-30
BobbyFresnel:
кфтвщь(70) - 30 - это от -30 до 39
Ответы
Ответ дал:
1
Ответ:
var i,s: integer;
a: array [1..10] of integer;
begin
write('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(71)-30;
write (a[i]:4);
if a[i]>0 then s:=s+a[i]
end;
writeln;
write('Сумма положительных элементов массива ',s)
end.
Объяснение:
a[i]:=random(71)-30 если от -30 до 40 включительно
A[i]:= random (70)-30 если от -30 до 39 включительно
Ответ дал:
1
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
ArrRandom(n, -30, 39).Println.Sum.Println;
end.
Приложения:
![](https://st.uroker.com/files/143/143426dc1b160a0e675d311f26723151.jpg)
Вас заинтересует
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
7 лет назад