Программирование в языке Паскаль (!), не С++. 1. Написать программу, которая считывает с клавиатуры...

Давайте рассмотрим задачи по программированию на языке Паскаль. Я приведу решения для каждой из указанных задач.

Задача 1

Описание задачи: Написать программу, которая считывает с клавиатуры массив из 10 элементов и выводит минимальный элемент массива.

Решение:

program MinElementFinder;
var
  arr: array[1.10] of integer;
  i, min: integer;
begin
  writeln('Введите 10 элементов массива:');
  for i := 1 to 10 do
    read(arr[i]);

  min := arr[1];
  for i := 2 to 10 do
    if arr[i] < min then
      min := arr[i];

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

Задача 2

Описание задачи: Написать программу, которая считывает с клавиатуры массив из 10 элементов и выводит максимальный элемент массива и его индекс.

Решение:

program MaxElementFinder;
var
  arr: array[1.10] of integer;
  i, max, maxIndex: integer;
begin
  writeln('Введите 10 элементов массива:');
  for i := 1 to 10 do
    read(arr[i]);

  max := arr[1];
  maxIndex := 1;
  for i := 2 to 10 do
    if arr[i] > max then
    begin
      max := arr[i];
      maxIndex := i;
    end;

  writeln('Максимальный элемент массива: ', max, ' на позиции ', maxIndex);
end.

Задача 3

Описание задачи: Написать программу, которая считывает с клавиатуры массив из N элементов (N max then

  max := arr[i];

end;

avg := (min + max) / 2.0; writeln('Минимальный элемент: ', min); writeln('Максимальный элемент: ', max); writeln('Среднее значение: ', avg:0:2); end.

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

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

program findMinElement;
var
  arr: array[1.10] of integer;
  i, minElement: integer;
begin
  minElement := 9999; // Присваиваем начальное значение, которое гарантированно будет больше любого элемента массива
  writeln('Введите 10 элементов массива:');
  for i := 1 to 10 do
  begin
    readln(arr[i]);
    if arr[i] < minElement then
      minElement := arr[i];
  end;
  writeln('Минимальный элемент массива: ', minElement);
end.

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

program findMaxElement;
var
  arr: array[1.10] of integer;
  i, maxElement, maxIndex: integer;
begin
  maxElement := -9999; // Присваиваем начальное значение, которое гарантированно будет меньше любого элемента массива
  writeln('Введите 10 элементов массива:');
  for i := 1 to 10 do
  begin
    readln(arr[i]);
    if arr[i] > maxElement then
    begin
      maxElement := arr[i];
      maxIndex := i;
    end;
  end;
  writeln('Максимальный элемент массива: ', maxElement);
  writeln('Индекс максимального элемента: ', maxIndex);
end.

Эти программы позволят вам находить минимальный и максимальный элементы массива из 10 элементов, а также индекс максимального элемента.