Я надеюсь вы в 5 классе ...
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
<span>end.</span>
Больших жёлтых яблок было 7 штук.
1.32+17=42. Всего плодов
2.42-32=10.маленк. желт. яблок.
3.42-28=14.- большие зел.плоды
4.<span>Яблок на 2 больше, чем груш — 8 яблок, 6 груш.
5. 25 яблок, из них больш. зел. 8, маленк. жёлт. 10.
6.</span><span> 25-8-10=7.</span>
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do
if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]);
end.
Пример:
12 34 23 1 12 3 1 42 30 36
Пары соседних элементов с суммой > 50:
34 23
42 30
30 36
Https://studopedia.ru/3_177371_osnovnie-algoritmicheskie-konstruktsii-bazovie-algoritmi.html
1 Один за всех, и все за одного.2 Один с сошкой'