Предмет:
ИнформатикаАвтор:
frybegin
var a := ArrRandom(8, -20, 11);
a.Println;
Println('Сумма значений, меньших 7, равна ',
a.Where(t -> t < 7).Sum)
end.
Пример-13 -19 2 7 11 9 -7 10
Сумма значений, меньших 7, равна -37
Автор:
marín29var 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]<7 then
s:=s+a[i];
end;
writeln(s);
end.
Автор:
jayson123Добавить свой ответ
Предмет:
БиологияАвтор:
mad maxkykoОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
double doubleОтветов:
Смотреть
Предмет:
ИсторияАвтор:
anderson75Ответов:
Смотреть
Предмет:
МатематикаАвтор:
june16Ответов:
Смотреть