Question

Program Zom2; var a: array [1..10] of integer; i,min,max,T :integer; Begin read (a[i]); For i:=1 to 10 do Write(a[i],''); min:=a[1]; For i:=2 to 10 do IF a[i] Write (a[i],''); max:=a[2]; For i:=2 to 10 do IF a[i]>max then max:=a[i]; For i:=1 to 10 do a[i]:=a[2]+a[1]; Writeln ('Сумма макс и мин элем'); end. Условие найти сумму макс и мин элементов массива состоящего из 10 целых чисел значение которых вводиться с клавиатуры.У меня ошибка там где read , пишет что Ошибка времени выполнения: Индекс выходит за границы массива

Answer 1

там где создаёшь массив сделай не 1..10 а 1..12. Подстрахуйся, создай на 2 элемента больше

Answer 2

Looks like there are several issues in your Pascal code. Let's go through the code step by step and fix the errors:

pascalCopy code
Program Zom2;
var
  a: array [1..10] of integer;
  i, min, max, sum: integer;

Begin
  for i := 1 to 10 do
    readln(a[i]);

  min := a[1];
  max := a[1];  // Initialize max to the first element

  for i := 2 to 10 do
  begin
    if a[i] < min then
      min := a[i];
    if a[i] > max then
      max := a[i];
  end;

  sum := min + max;  // Calculate the sum of min and max

  writeln('Сумма макс и мин элементов: ', sum);
End.

Here's what I've fixed:

1. Moved the readln(a[i]) loop to correctly input values into the array.
2. Initialized max to the first element of the array (not a[2]).
3. Fixed the if statements by adding then after the conditions.
4. Added a loop to calculate the sum of the minimum and maximum elements.
5. Fixed the writeln statement to display the correct result.

Please note that the corrected code assumes that you want to find the sum of the minimum and maximum elements of the array entered by the user. Make sure to test the code to ensure it behaves as expected.