Question

Помогите с паскалем, фото прикреплено. Очень прошу вас... Завтра уже нужно сдавать... ПОМОГИТЕ...

Answer 1

Var  a: array [1..5] of integer := (1, 2, 3, 4, 5);
  i: integer;
begin
  for i := 5 downto 1 do
    writeln(i, ' ');
end.

Так:)