Question

Составить программу в паскале. Найти минимальный элемент массива А(Т,Т), число Т и элементы массива вводятся с клавиатуры.

Answer 1

Var i,j,T,n,min:longint;

begin
read(T);
for i := 1 to T do
for j := 1 to T do
begin
read(n);
if (i = 1) and (j = 1) then min := n else if n < min then min := n;
end;
writeln(min);
end.

Answer 2

Программа на языке Pascal для поиска минимального элемента в массиве

program FindMinElement;

const
  MAX_SIZE = 100;

var
  A: array[1..MAX_SIZE] of Integer;
  T, i, minElement: Integer;

begin
  WriteLn('Введите число T:');
  ReadLn(T);

WriteLn('Введите элементы массива A:');
  for i := 1 to T do
  begin
    ReadLn(A[i]);
  end;

minElement := A[1];
  for i := 2 to T do
  begin
    if A[i] < minElement then
    begin
      minElement := A[i];
    end;
  end;

WriteLn('Минимальный элемент массива A: ', minElement);
end.

Описание программы

Программа написана на языке Pascal и предназначена для поиска минимального элемента в массиве A. Число T и элементы массива вводятся с клавиатуры.

Сначала программа запрашивает число T - количество элементов в массиве. Затем она запрашивает сами элементы массива A.

Далее программа инициализирует переменную minElement значением первого элемента массива A. Затем она проходит по остальным элементам массива и сравнивает их со значением minElement. Если текущий элемент меньше minElement, то minElement обновляется.

В конце программа выводит на экран минимальный элемент массива A.

Пример использования программы

Введите число T:
5
Введите элементы массива A:
10
5
8
3
12
Минимальный элемент массива A: 3

Объяснение кода

- `const MAX_SIZE = 100;` - объявление константы, которая определяет максимальный размер массива A. - `var A: array[1..MAX_SIZE] of Integer;` - объявление массива A, который будет хранить элементы. - `var T, i, minElement: Integer;` - объявление переменных T (число элементов), i (счетчик цикла) и minElement (минимальный элемент). - `ReadLn(T);` - считывание числа T с клавиатуры. - `ReadLn(A[i]);` - считывание элементов массива A с клавиатуры. - `minElement := A[1];` - инициализация переменной minElement значением первого элемента массива A. - `if A[i] < minElement then` - проверка, является ли текущий элемент массива A[i] меньше minElement. - `WriteLn('Минимальный элемент массива A: ', minElement);` - вывод на экран минимального элемента массива A.

Обратите внимание: Программа предполагает, что пользователь будет вводить только целочисленные значения элементов массива. Если пользователь введет некорректные данные (например, символы или дробные числа), программа может работать некорректно или выдать ошибку.