Question

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!составить программу обработки массива К, состоящего из 20 элементов. Заполнить массив случайными числами в диапазоне от -5 до 25. Все элементы массива К, значения которых находятся в интервале от -2 до 20 возвести в квадрат. Измененный массив вывести на экран. Паскаль!!!

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-5,25); a.Println;
  a.Transform(t->t.Between(-2,20)? t*t : t); a.Println
end.

Пример
-3 5 14 -3 10 12 1 7 10 2 15 22 5 4 -3 21 3 -1 10 21
-3 25 196 -3 100 144 1 49 100 4 225 22 25 16 -3 21 9 1 100 21

Answer 2

Вот пример программы на языке Pascal, которая выполняет описанные вами действия:

pascalCopy code
program ProcessArray;

uses
  SysUtils;

const
  N = 20;
  MIN_VALUE = -5;
  MAX_VALUE = 25;
  MIN_RANGE = -2;
  MAX_RANGE = 20;

var
  K: array[1..N] of Integer;
  i: Integer;

begin
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to N do
    K[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(K[i], ' ');
  writeln;

  // Возведение в квадрат элементов в заданном интервале
  for i := 1 to N do
  begin
    if (K[i] >= MIN_RANGE) and (K[i] <= MAX_RANGE) then
      K[i] := K[i] * K[i];
  end;

  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to N do
    write(K[i], ' ');
  writeln;

  readln;
end.

Программа сначала заполняет массив K случайными числами в диапазоне от -5 до 25. Затем она выводит исходный массив на экран. Далее происходит обработка массива: все элементы, значения которых находятся в интервале от -2 до 20, возводятся в квадрат. И, наконец, программа выводит измененный массив на экран.

Обратите внимание, что я использовал функцию Randomize, чтобы инициализировать генератор случайных чисел, а Random для генерации случайных чисел в заданном диапазоне.