Сделать программку которая делает массив из восьми случайных чисел с интервалом

Сделать программку которая делает массив из восьми случайных чисел с интервалом (-20,11) и вычислить сумму чиселlt;7

Задать свой вопрос
2 ответа

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(8, -20, 11);

 a.Println;

 Println('Сумма значений, наименьших 7, одинакова ',

     a.Where(t -gt; t lt; 7).Sum)

end.

Пример

-13 -19 2 7 11 9 -7 10

Сумма значений, меньших 7, одинакова  -37

var i,s:integer;

a:array[1..8] of integer;

begin

randomize; s:=0;

for i:=1 to 8 do

begin

a[i]:=random(-20,11);

if a[i]lt;7 then

s:=s+a[i];

end;

writeln(s);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт