Помогите плиз
10-11 класс
|
Задан массив Х(50). Переписать в массив У элементы массива Х в обратном порядке
var
x, y: array [1..50] of integer;
i: integer;
begin
for i := 1 to 50 do
x[i] := random(50);
for i := 1 to 50 do
y[i] := x[51 - i];
for i := 1 to 50 do
writeln('x[', i, '] => ', x[i]);
for i := 1 to 50 do
writeln('y[', i, '] => ', y[i]);
end.
Вот, циклы объединять не стал, т.к. они всё-таки разные дела делают:)
Другие вопросы из категории
забронировал одно конкретное место в зала?
пунктуации и т.д)можно закодировать,используя код Морзе длиной ровно в пять сигналов(точек и тире)?напишите по подробнее
100
b := -50
а := а - b * 3
если а > b то с := а - b
иначе с := b - а
всё
Варианты ответов: 1)с=0 , 2)с= - 300 , с=250 , 4)с=400
10<=а(i)<=20.Вывести исходный массив и результат"
Читайте также
1.Сколько раз будет выполнена команда повторения в приведенных фрагментах при n=7:
1) for i :=n downto 4 do;
2)S:=S * i.
2. Определите, какой будет результат приведенного фрагмента: a:=100, n:=4:
for i:=1 to n do
a:=a - 2 * i.
Очень важно помогите.
Привет. Помогите плиз=)
№1)Составить алгоритм вывода среднего(не арифметического) из трёх чисел в виде блок-схемы.
Входные данные:три числа
Выходные данные:среднее число
№2) На вход подаётся число. Нужно вывести числа от данного до 10. Если оно изначально больше 10, завершить программу.