Вывести элементы массива на экран в обратном порядке
5-9 класс
|
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=i;
write (a[i]:3);
end;
writeln;
for i:=10 downto 1 do write (a[i]:3);
writeln;
end.
Другие вопросы из категории
Клавиатура Ввод информации Мышь Хранение информации Процессор Вывод информации
Опиративная намять Обработка информациии
Монитор
Принтер
Акустические колонки
Сканер
1)системы программирования
2)драйверы внешних устройств
3)текстовые редакторы
4)игровые программы
5)процессор и материнская плата
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
Помогите пожалуйста
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
в общем дан массив а :var a,b,c,d:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
{readln (a[i])};
a[i]:=random(100);
end;
for i:=1 to 10 do begin
write (a[i]:4);
end;
и мне надо заполнить массив d элементами массива а НО В ОБРАТНОМ ПОРЯДКЕ как это сделать!!!!!!
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива