Question

Помогите пожалуйста :/

Answer 1

1) var

 k, i, n: integer;

 a: array [1..1000] of integer;

 b: array [1..1000] of integer;

begin

 k := 0;

 readln(n);

 for i := 1 to n do

   readln(a[i]);

 

 for i := n downto 1 do

   if a[i] mod 2 = 0 then

   begin

     k += 1;

     b[k] := a[i];

   end;

 write('Чётные элементы массива: ');

 for i := 1 to k do

   write(b[i], ' ');

 writeln();

 writeln('Их количество: ', k);

end.

2) var

 k, i, n: integer;

 a: array [1..1000] of real;

begin

 readln(n);

 readln(k);

 for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

if i mod k = 0 then

 write(a[i], ' ');

end.