Question

Составьте, пожалуйста, программу в паскале: подсчитайте количество нулевых элементов в массиве из 7 целых чисел и распечатайте исходный массив в обратном порядке.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ArrRandom(7,-10,10).Println();
writeln('кол-во 0: ',a.Where(x->x=0).Count());
a.Reverse().Println();
end.

Answer 2

Var
a:array[1..7] of integer;
i,cnt:integer;
begin
For i:= 1 to 7 do
  begin
    read(a[i]);
    if a[i] = 0 then cnt:= cnt + 1;
  end;
Writeln('нулевых элементов: ', cnt);
For i:= 7 downto 1 do
  Write(a[i], ' ');
end.

Пример:
0 1 2 0 3 4 5
нулевых элементов: 2
5 4 3 0 2 1 0