Сформировать массив из 10 элементов вводимых с клавиатуры . Вывести элементы массива в обратном порядке

Знания

Информатика

1 ответ:

Людмила614 года назад

0 0

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadArrInteger(10);
a.Reverse.Println
end.

Пример
23 132 52 0 41 7 3732 18 49 13
13 49 18 3732 7 41 0 52 132 23

Читайте также

Ввести с клавиатуры 2 числа.Напечатать их частное или сообщение "делить на ноль нельзя"pascalABC

Савельев Илья [665]

Program CrazyCoder;
var a, b: integer; c: real;
begin readln(a, b); if(a = 0) or (b = 0) then writeln('Делить на ноль нельзя!') else begin c := a / b; writeln(c); end; readln;end.

0 0

1 год назад

Выберите лишнее. работа со списками может применяться: при составлении плана работы при наборе текста рассказа при создании огл

Max76

Ответ: при наборе текста рассказа.

0 0

4 года назад

1. укажите неправильное действие левой кнопки мыши а) щелчок по объекту в)перетаскивание с)копирование д)протягивание 2. к образ

ruffrebype

1. С
2. С
3. В
4. В
5. В

0 0

4 года назад

ПОДСКАЖИТЕ ПОЖАЛУЙСТА

Олег111112345 [7]

Третье слово лишнее .

0 0

3 года назад

Язык программирования: Паскаль. Написать программу.Заполнить массив из 10 элементов случайными числами в интервале [0..100] и о

Тата79 [374]

var a:array[1..10]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do a[i]:=random(101);
for i:=1 to 10 do write(a[i],' ');
writeln;

for i:=1 to 5 do
for j:=1 to 4 do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;

for i:=1 to 5 do
for j:=7 to 10 do
if a[j]>a[j-1] then begin
k:=a[j];
a[j]:=a[j-1];
a[j-1]:=k;
end;

for i:=1 to 10 do write(a[i],' ');

end.

0 0

4 года назад