Question

Здравствуйте, помогите с заданиями по информатике! Всё решать через массивы (array) в паскале 1. Составить программу нахождения минимального элемента и его номера в массиве вещественных чисел не более 50, задаваемых вводом с клавиатуры. 2. Сформировать массив (вывести на экран) из т случайных целых чисел на промежутке от -60 до 60, найти сумму чисел больших 20. 3. В массиве подсчитать количество элементов больших, чем 13. Элементов в массиве 14. Целочисленный массив вводится случайным образом в интервале от 3 до 30.

Answer 1

Ответ:

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

 var l := ReadInteger('Задайте длину массива: ');

 var A := ReadArrReal(l);

 WritelnFormat('Min: {0}, Number in array: {1}', A.Min, A.IndexOf(A.Min));

end.

#2

begin

 var t := ReadInteger('Array length: ');

 var A := ArrRandom(t, -60, 60);

 A.Println;

 A.Where(p -> p > 20).Sum.Println;

end.

#3

begin

 var A := ArrRandom(14, 3, 30);

 A.Println;

 A.Where(p -> p > 13).Count.Println;

end.

Объяснение:

Функции _ReadArrReal_ и _ArrRandom_ в PascalABC.NET Возвращают массив (array of real и array of integer соответственно), по этому хоть ни в одной программе нет явного объявления массива вида A : Array of T, все три программы используют обычные массивы.

Answer 2

Конечно, я могу помочь вам с этими заданиями на языке Pascal. Вот решения для каждой из задач:

1. Программа для нахождения минимального элемента и его номера в массиве вещественных чисел:

pascalCopy code
program FindMinElement;
var
  arr: array[1..50] of real;
  n, i: integer;
  minVal: real;
  minIndex: integer;
begin
  write('Введите количество элементов (не более 50): ');
  readln(n);

  if (n > 50) or (n <= 0) then
  begin
    writeln('Некорректное количество элементов.');
    exit;
  end;

  writeln('Введите элементы массива:');
  for i := 1 to n do
    readln(arr[i]);

  minVal := arr[1];
  minIndex := 1;

  for i := 2 to n do
  begin
    if arr[i] < minVal then
    begin
      minVal := arr[i];
      minIndex := i;
    end;
  end;

  writeln('Минимальный элемент: ', minVal);
  writeln('Номер минимального элемента: ', minIndex);
end.

2. Программа для создания массива случайных целых чисел, подсчета суммы чисел больших 20:

pascalCopy code
program RandomIntArray;
var
  arr: array[1..50] of integer;
  n, i, sum: integer;
begin
  randomize;

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

  if (n > 50) or (n <= 0) then
  begin
    writeln('Некорректное количество элементов.');
    exit;
  end;

  sum := 0;

  for i := 1 to n do
  begin
    arr[i] := random(121) - 60; // Генерация случайного числа от -60 до 60
    writeln('arr[', i, '] = ', arr[i]);

    if arr[i] > 20 then
      sum := sum + arr[i];
  end;

  writeln('Сумма чисел больших 20: ', sum);
end.

3. Программа для подсчета количества элементов больших чем 13 в массиве:

pascalCopy code
program CountElementsGreaterThan13;
var
  arr: array[1..30] of integer;
  n, i, count: integer;
begin
  randomize;

  n := random(28) + 3; // Генерация случайного числа от 3 до 30

  writeln('Количество элементов в массиве: ', n);

  count := 0;

  for i := 1 to n do
  begin
    arr[i] := random(101); // Генерация случайного числа от 0 до 100
    writeln('arr[', i, '] = ', arr[i]);

    if arr[i] > 13 then
      count := count + 1;
  end;

  writeln('Количество элементов больших чем 13: ', count);
end.

Скопируйте каждую программу в среду разработки Pascal и выполните её для решения соответствующей задачи.