<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.
<u>Пример</u>
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2
Var a:array[1..11] of real;
t,i:integer;
begin
for i:=1 to 11 do
read(a[i]);
for i:=1 to 11 do
if a[i]>0 then begin t:=i; break; end;
if t<>0 then writeln(a[t])
else writeln('Not found');
<span>end.</span>
3.
65
4.
110
Смотрите в приложении.
Код программы можно увидеть Alt+F11
2)Маша она точна купит заколку
<span>массив 5, 28, 8, 14, 9, 23, 6, 18, 51, 99
первый цикл
</span><span>i := 0; j := 9;
while A[i] < 10 do
i := i + 1;
считает i смотрим 5<10 да значит i:=0+1, 28 не меньше 10, 8<10 значит i:=1+1, 14 </span>не меньше 10, 9 <10 значит i:=2+1, 23 не меньше 10, 6 <10 значит i:=3+1, далее ничего не удовлетворяет условию значит i:=4
второй цикл
5, 28, 8, 14, 9, 23, 6, 18, 51, 99<span>
while A[j] > 10 do
j := j - 1;
t := A[i] - A[j];
смотрим 99 > 10 да значит j:=9-1, t=A[4] - A[8]=-42 и так далее ответ получается -176</span>