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 , пишет что Ошибка времени выполнения: Индекс выходит за границы массива

Популярно: Информатика

• 

  Trifonova252525

  16.12.2021 23:45
  Дана блок-схема. Если =36;=7....
• 

  12345678298

  21.12.2022 09:50
  (x=4 y=14.0)(x=-5 y=-1.0) сделайте программу на пайтоне)​...
• 

  дядялёняййццйуйу

  22.02.2023 07:28
  Для хранения растрового изображения размером 126×126 пикселей отвели 4 КБ...
• 

  byrdo98

  28.01.2022 19:19
  Информатика 7 класс РАСМОТРИ НА КАРТИНКЕ ПЕРЕМЕННЫЕ ЕСЛИ ЯВЛЯЕТСЯ ИМЕНЕМ ПЕРЕМЕННОЙ...
• 

  Husky333

  29.03.2021 09:46
  1. К какому типу носителей информации относится Blu-ray? 2. Какие правила...
• 

  Мокааа585

  02.09.2020 08:07
  я я ещё подписан буду на вас и я постоянно вам дам лайк и звёздочку 5 звёзд...
• 

  51bai

  26.05.2022 02:22
  Информатика 7 классс (СОР)​...
• 

  RakoT1511

  03.09.2020 16:30
  Кто делал эту работу ??...
• 

  erasil1105

  03.02.2022 02:42
  Заданы два натуральных четных числа: А и В (А Идея решения: Если А = 2, а...
• 

  lobanovartem2

  24.05.2020 00:34
  Https://www.richmond.com/calendar/123movies-watch-365-dni-365-days-2020-full-movie-online-free/event_ad666754-8fc8-11ea-b032-83a1a089bbc5.html...