Ответы на вопрос:
program raf105;
var a: array[1..100] of integer;
i,n: integer;
begin
write('введите количество элементов в массиве: ');
readln(n);
for i: =1 to n do
begin
a[i]: = random(1,9);
write(a[i],' ');
end;
writeln;
for i: =n downto 1 do
write(a[i],' ');
end.
язык pascalabcПопулярно: Информатика
-
okmaksimowac206.12.2021 23:03
-
сема1025.12.2020 04:33
-
ShkolnikN1505.02.2022 00:36
-
proksi0127.06.2022 00:04
-
raisaaaaaaaaaaaa26.03.2021 12:33
-
nikichosipov06.01.2021 01:53
-
evauvanova199828.04.2022 06:09
-
nastamelnik70017.11.2021 19:54
-
lubawa1o11.01.2023 20:45
-
ВеДьМоЧкА1111129.08.2020 13:06