4 года назад

Дан массив А, содержащий 30 элементов. Найти сумму элементов больших 10.

Знания

Информатика

2 ответа:

Dariaa [7]4 года назад

0 0

Подробный ответ во вложении.

Galim129 [7]4 года назад

0 0

// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.

Тестовое решение:
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125

Читайте также

Переведите число 305 из десятичной системы счисления в двоичную систему счисления .Сколько единиц содержит полученное число?в от

Илья1447 [1.5K]

10110001 делим на 2 постоянно
4 единицы

0 0

4 года назад

Помогите пж заполнить

Алсу19

держи

в пропуске ответ 0,5

надеюсь помог)

0 0

4 года назад

Написать программу по блок-схеме

Жандар [117]

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
 if d=0 then begin
 var x:=-b/2/a;
 Writeln('Корень уравнения x=',x)
 end
 else begin
 var x1:=(-b-Sqrt(d))/2/a;
 var x2:=(-b+Sqrt(d))/2/a;
 Writeln('Корни уравнения: x1=',x1,', x2=',x2)
 end
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Вводится n чисел. Найти наибольшее.(Паскаль АВС)

Barsik228

Program MAX;
var
a:integer;{само проверяемое число}
m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln('Введите ваше число:', '(Если захотите выйти, напишите ноль)':3);
readln(a);
while (a <> 0) then begin
If (a > m) then begin
m:= a; end;
readln(a); end;
writeln('Максимально число:', m:3);
End.

0 0

3 года назад

Дискета объемом 1440 Кбайт весила 20г. Сколько бы весил набор дискет,необходимый для полного копирования информации с жесткого д

Андрейка это я

Дано | Решение
m1=20г | n(дискет)=80000000/1440=55555(количество)
 дискета=1440 Кбайт | m2=n(дискет)*m1=55555.6*20=1111111(г) 
ж.д=80Гб

0 0

4 года назад