Составьте программу для ввода с клавиатуры в массив 10 целых чисел и вывода первых
Составьте программу для ввода с клавиатуры в массив 10 целых чисел и вывода первых5-и чисел в обратном порядке в первую строку, во вторую строку – последние четыре числа в обычном порядке, а в третьей строке – первый и девятый элементы массива (
Гость
Ответ(ы) на вопрос:
Гость Var b:integer;
a: array [0..9] of integer;
begin
randomize;
for b:=0 to 9 do begin
read(a[b]);
end;
for b:=4 downto 0 do begin
write(a[b],);
end;
writeln(');
for b:=6 to 9 do begin
write(a[b],);
end;
writeln(');
for b:=0 to 9 do begin
if ((b=0)or (b=8)) then write(a[b],);
end;
writeln(');
end.
Не нашли ответ?
Похожие вопросы