составьте, пожалуйста, программу в паскале:
подсчитайте количество нулевых элементов в массиве из 7 целых чисел и распечатайте исходный массив в обратном порядке.
подсчитайте количество нулевых элементов в массиве из 7 целых чисел и распечатайте исходный массив в обратном порядке.
Answers & Comments
//Версия 3.3, сборка 1611
begin
var a:=ArrRandom(7,-10,10).Println();
writeln('кол-во 0: ',a.Where(x->x=0).Count());
a.Reverse().Println();
end.
Verified answer
Vara: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