Ответы на вопрос:
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Популярно: Информатика
-
757575757522.02.2022 13:51
-
motya1043215.06.2020 10:40
-
ELNARAMAMEDOVA29.07.2020 13:39
-
osipovalex196930.05.2021 16:36
-
DragaoMad13.11.2022 05:17
-
ked00p08uz108.05.2020 05:19
-
lerochek608.03.2022 17:02
-
Никита2703118.01.2020 11:41
-
andry9252607.08.2021 18:17
-
anyutatelichuk21.08.2022 19:54