дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100;100] найти сумму положительных элементов, значения которых меньше 10.
Pascal
Ответы на вопрос
Ответил xDmitryINFO
0
var
mas:array[1..999] of integer;
n,sum:integer;
begin
sum:=0;
randomize;
readln(n);
for i:=1 to n do
begin
mas[i]:=random(201)-100;
write(mas[i],' ');
end;
writeln;
for i:=1 to n do
if (mas[i]>0) AND (mas[i]<10) then
sum:=sum+mas[i];
writeln(sum);
end.
mas:array[1..999] of integer;
n,sum:integer;
begin
sum:=0;
randomize;
readln(n);
for i:=1 to n do
begin
mas[i]:=random(201)-100;
write(mas[i],' ');
end;
writeln;
for i:=1 to n do
if (mas[i]>0) AND (mas[i]<10) then
sum:=sum+mas[i];
writeln(sum);
end.
Ответил Andrey05
0
выводит
Ответил Andrey05
0
Добавьте переменную i в описание
Ответил Gforsenorm
0
дада
Ответил Gforsenorm
0
не заметил
Новые вопросы