Ответ:
1) 1
2) 1
3) 3
4) 4
5) 2
Про каждое писать будет целая статья, но ответы верные
Объяснение:
10 человек ничем не заняты,
11 занимаются только спортом
Пушкин. Учёный Кот
Золотая рыбка
program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
Uses crt;
const
n = 10;
var
a,b : array[1..n] of integer;
i,j : integer;
begin
randomize;
i := 0;
j := 0;
for i := 1 to n do
begin
a[i] := random(21)-10;
write(a[i],' ');
end;
writeln;
for i := 1 to n do
if (a[i] < 0) and (a[i] mod 2 = 0) then
begin
j := j+1;
b[j] := a[i];
end;
for i := 1 to j do
writeln(b[i]);
readln;
end.