3 года назад

Массив на 13 значений заполнен трехзначными числами найти сумму и их количество в котрых есть цифра 2

1 ответ:

0 0

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.

Пример
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2

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

Даны три числа a, b, c. Определить, какое из них равно d. Если ни одно не равно d, то найти max(d-a, d-b, d-c). Составить алгори

Лариса Саенко

Если нужен просто алгоритм, то вроде так:

0 0

4 года назад

Информативны ли для вас следующие сообщения: «Сколько в слове гласных звуков, столько в слове и слогов» и «Термин «мультимедиа»

Alinakrali [7]

1.Да потому что в нем есть смысл
2.Нет. Это вопрос.

0 0

3 года назад

Определите значение логического выражения((X<4) --> (X<3))*((X<3) --> (X<1)) для X = 1,2,3,4

1168848

Надеюсь понятно..
1. При х=1 ложь т.е 0. 
2. х=2. ложь
3. х=3 ложь
4. истина

0 0

4 года назад

Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его элементов на один вправо. (Последний элемент в таком сл

leosko

Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Пример:
8 2 24 20 27 44 25 41 16 21
21 8 2 24 20 27 44 25 41 16

0 0

4 года назад

Найти сумму четных делителей введенного целого числа(Pascal abc.net)

Deathspank [2]

Program n1;
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.

0 0

4 года назад