Помогите решить пожалуйста!! 30 баллов!
Заполнить массив из 10 элементов случайными числами в интервале [-100,100] и подсчитать КОЛИЧЕСТВО отрицательных элементов..
Ответы на вопрос
Ответил gfhjkmgfhjkm20
0
Ответ:
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(201)-100;
write (a[i]:5);
if a[i]<0 then k:=k+1
end;
writeln;
writeln('Количество отрицательных чисел ',k)
end.
Ответил BobbyFresnel
0
===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
Приложения:

Новые вопросы
Английский язык,
1 год назад
Английский язык,
1 год назад
Алгебра,
2 года назад
История,
2 года назад
Қазақ тiлi,
7 лет назад