Составьте программу для ввода с клавиатуры в массив 20 целых чисел и вывода первых десяти чисел в обратном порядке в первую строку, во вторую строку – остальные десять чисел в обычном порядке.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program vdchvep;
uses
crt;
var
i: integer;
var
c: array [1..20] of integer;
begin
for i := 1 to 20 do
begin
write('c[', i, '] = ');
readln(c[i]);
end;
for i := 10 downto 1 do
write(c[i], ' ');
writeln;
for i := 11 to 20 do
write(c[i], ' ');
readln;
end.
PascalANC.NET 3.7: