Pascal ABC
Имеется массив целых чисел размером N (задаётся константой в коде).

Заполнить его случайными целыми числами, лежащими в диапазоне от a до b ( a >0, b >0 вводятся с клавиатуры).
Вывести полученный массив.
Заменить последний положительный элемент массива на второй элемент.
Вывести новый массив.

1 ответы

  • Const n = 10;
    var
    mas:array [1..n] of integer;
    i,x,j,a,b,index:integer;
    begin
    write('Введите диапазон от a до b: ');
    readln(a,b);
    for i:= 1 to n do
    begin
    mas[i]:=Random(b-a+1)+a;
    end;
    writeln('Полученный массив: ');
    for i:= 1 to n do
     write(mas[i]:4);
    for i:=n downto 1 do
    if mas[i]>0 then
    begin
     index:=i;
     break
    end;
    mas[index]:=mas[2];
    writeln;
    writeln('Результат выполнения задания: ');
    for i:= 1 to n do
     write(mas[i]:4);
    readln
    end.

    Введите диапазон от a до b: 10 40
    Полученный массив:
      25  13  38  31  39  12  16  11  26  33
    Результат выполнения задания:
      25  13  38  31  39  12  16  11  26  13

Последнее для темы Информатика

Https://photos.app.goo.gl/jo8nf7mSTrq6Qnv1A Помогите СРОЧНО!!!!!!

ДАМ 50 БАЛЛОВ ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА Чему равно х в десятичной системе счисления, если х = 22

СРОЧНО!!! надо подписать нужное. Даю 15 баллов​.

А) Ернар сказал Оле: «Если человек долго и не моргая смотрит на экран компьютера, то его глаза стану

Ребята, помогите, пожалуйста, с информатикой! Это срочно 1. Как называют схему связей между раздела

В записи С12, что означает буква и цифра​

Напишите программу, которая находит сумму чисел в числовом ряду. Формат входных данных В первой с

2. Рассмотри изображение. Предложи ДВА действия во избежание нарушений правил техники безопасности.

Помогите пожалуйста с устройством ЭВМ. Нужно описать элементы схемы и их взаимодействие

ПОМОГИТЕ! Алгоритм вычисления значения функции F(n), где n – целое число, задан следующими соотношен