Помогите, пожалуйста, даю 30 баллов!!!
Нужно делать через Free Pascal!
Нужно вывести числа в обратном порядке(Это если коротко).
Если что, через пробел.
Нужно делать через Free Pascal!
Нужно вывести числа в обратном порядке(Это если коротко).
Если что, через пробел.
More Questions From This User See All
Answers & Comments
var
mas : array [1..100] of integer;
i : integer;
begin
for i:=1 to 100 do
begin
mas[i]:=random(9); //для ввода чисел с клавиатуры заменить строку на: read(mas[i]);
write(mas[i]:2);
if i mod 10 = 0 then writeln;
end;
writeln('Массив в обратном порядке: ');
for i:=100 downto 1 do
begin
if (i mod 10 = 0) then writeln;
write(mas[i]:2);
end;
end.