Question

Помогите написать программу в Паскале Задание: Дан одномерный массив. Необходимо ввести и вывести одномерный массив. Кол-во элементов массива: 4 Способ ввода: заполнение случайными числами от 0 до 10 Способ вывода: в столбец Срочно надо, даю 100 балов

Answer 1

Ответ:

program z1;

var a:array [1..4] of integer;

i:integer;

begin

randomize;

for i:=1 to 4 do a[i]:=random(11);

for i:=1 to 4 do writeln(a[i])

end.

Объяснение:

random (n) - выдаёт случайные целые числа из диапазона [0,n)

writeln- вывод следующей строки с новой строки

Answer 2

Конечно, вот пример программы на Pascal, которая выполняет вашу задачу:

pascalCopy code
program ArrayInputOutput;

const
  MaxSize = 100; // Максимальный размер массива

var
  arr: array[1..MaxSize] of integer;
  n, i: integer;

begin
  // Ввод количества элементов массива
  write('Введите количество элементов массива: ');
  readln(n);

  // Проверка на допустимое количество элементов
  if (n < 1) or (n > MaxSize) then
  begin
    writeln('Недопустимое количество элементов массива.');
    exit;
  end;

  // Заполнение массива случайными числами от 0 до 10
  randomize; // Инициализация генератора случайных чисел
  for i := 1 to n do
    arr[i] := random(11); // Генерация случайного числа от 0 до 10

  // Вывод массива в столбец
  writeln('Массив:');
  for i := 1 to n do
    writeln(arr[i]);

  readln;
end.

Эта программа сначала запрашивает у пользователя количество элементов массива, затем заполняет массив случайными числами от 0 до 10 и выводит его в столбец.