Дан массив C, состоящий из N элементов. Элементы массива — произвольные целые числа. Вывести на экран элементы массива в обратном порядке
Вопрос посетителя
Дан массив C, состоящий из N элементов. Элементы массива — произвольные целые числа. Вывести на экран элементы массива в обратном порядке
Ответ эксперта
USES Crt;
CONST N=20;
VAR
C:ARRAY[0..N] OF INTEGER;
I: BYTE;
BEGIN
ClrScr; Randomize;
WriteLn(‘ Значения элементов массива’);
FOR I:=1 TO N DO Begin
C[I]:=Random(20); Write(C[I]:3);
End; WriteLn;
WriteLn(‘ Значения элементов массива в обратном порядке’);
FOR I:=N DOWNTO 1 DO
Write(C[I]:3);
END.