Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.
Первым официальным чемпионом мира по шахматам стал Вильгельм Стейниц . Первый в истории матч за звание чемпиона мира проходил в 1886 году и закончился победой Стейница, выигравшего 10 партий при пяти поражениях и пяти ничьих
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->2*(i+1)+1); a.Println
end.