program z1;
begin
writeln(' | ');
writeln(' / \ ');
writeln(' / \ ');
writeln(' / \ ');
writeln(' / \ ');
writeln(' ========= ');
writeln(' | | ');
writeln(' | o o | ');
writeln(' | o o | ');
writeln(' | o o | ');
writeln(' | o o | ');
writeln(' | | ');
writeln(' | o o | ');
writeln(' | o o | ');
writeln(' | o o | ');
writeln(' | o o | ');
writeln(' | | ');
writeln(' / /\ /\ \ ');
writeln(' / / | | \ \ ');
writeln(' / / | | \ \ ');
writeln(' \ / V \ / ');
writeln(' V V ');
end.
Объяснение:
Смотри картинку
uses GraphABC;
var
sum, sum_chetn, sum_nechetn : integer;
b:array [1..10] of integer;
begin
for var i := 0 to 10 do
begin
sum :=sum + b[i]; //сумма всех элементов
if (i mod 2 =0) then
begin
sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов
end
else
begin
sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов
end;
end;
println('Сумма всех элементов:');
println(sum);
println('Сумма всех четных элементов:');
println(sum_chetn);
println('Сумма всех нечетных элементов:');
println(sum_nechetn);
end.