Question

90Баллов Помогите мне прям очень срочнооооо!!!!! Выполнить задание в Паскале. Дан массив из 10 чисел. Найти наибольшее значение среди элементов массива и вывести его на экран. Входные данные для решения задания задать самостоятельно. На проверку нужно прислать код программы и скриншот окна программы с отображением кода и результатов работы.

Answer 1

Ответ:

pascal

Объяснение:

var

  a: array[1..10] of integer;

  i, max, imax: integer;

begin

 WriteLn('Введите значения массива:');

 for i := 1 to 10 do

 begin

   Write('a[', i, '] = '); ReadLn(a[i]);

 end;

 max := a[1];

 imax := 1;

 for i := 2 to 10 do

 begin

   if a[i] > max then

   begin

     max := a[i];

     imax := i;

   end;

 end;

 WriteLn('Максимальный элемент: a[', imax, '] = ', max);

end.

Answer 2

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

pascalCopy code
program FindMaxValue;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i, maxValue: Integer;

begin
  // Заполним массив произвольными числами (ваш выбор)
  for i := 1 to N do
    arr[i] := Random(100); // Генерируем случайные числа от 0 до 99

  // Найдем максимальное значение в массиве
  maxValue := arr[1]; // Предположим, что максимальное значение находится в первом элементе

  for i := 2 to N do
  begin
    if arr[i] > maxValue then
      maxValue := arr[i];
  end;

  // Выведем наибольшее значение на экран
  WriteLn('Максимальное значение в массиве: ', maxValue);

  // Для того чтобы окно программы со скриншотом отображалось, запустите программу в вашей среде разработки Pascal.
end.

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