Массив В заполнить теми значениями массива А, которые больше, чем зна-чение элемента А23 - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток, нужно организовать массив, но я не знаю как это сделать, помогите.) в общем суть такова. Организовать в оперативной памяти два массива А и В размера N для хранения целых чисел. Массив А заполнить случайными числами из диапазона от К1 до К2. Массив В заполнить значе- ниями в соответствии с заданием Вашего варианта. Используя режим CRT отобразить оба массива на экране с пояснениями и выделением цветом. N=25, К1=3, К2=9. Массив В заполнить теми значениями массива А, которые больше, чем зна- чение элемента А23

Решение задачи: «Массив В заполнить теми значениями массива А, которые больше, чем зна-чение элемента А23»

textual
Листинг программы
uses crt;
const n=25; K1=3; K2=9;
var a:array[1..n] of integer;
    b:array[1..n] of integer;
    i,j,temp:integer;
BEGIN
for i:=1 to n do a[i]:=Round((K2-K1)*(Random)+K1);
TextColor(Blue); writeln('Vector A');
for i:=1 to n do write(a[i]:3);
writeln; TextColor(Red);
writeln('Vector B');
j:=1;
for i:=1 to n do
  if A[i]>A[23]
    then
      begin
        B[j]:=A[i];
        temp:=j;
        Inc(j)
      end;
for i:=1 to temp do write(b[i]:3);
END.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующие действия:

  1. Создает два массива: a и b. Оба массива имеют размерность от 1 до 25.
  2. Заполняет массив a случайными числами, используя формулу (K2-K1)*(Random)+K1, где K1 и K2 - константы, определенные в начале кода.
  3. Выводит на экран вектор A с помощью функции write, используя формат вывода чисел с разделителем : 3.
  4. Выводит на экран значение переменной i, которая используется в цикле.
  5. Выводит на экран вектор B с помощью функции write, используя формат вывода чисел с разделителем : 3.
  6. Использует цикл for для перебора всех элементов массива a.
  7. Внутри цикла проверяет условие A[i] > A[23]. Если это условие истинно, то:
    • Заполняет элемент массива b значением элемента массива a с индексом i.
    • Сохраняет индекс i в переменной temp.
    • Увеличивает значение переменной temp на 1.
  8. Выводит на экран все элементы массива b, используя цикл for и функцию write. Обратите внимание, что в данном коде используется функция Round для округления чисел до ближайшего целого числа.

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы