Используется оператор for i:= 5 to 36 do… При первом выполнении тела цикла i = ... Какой тут будет ответ?

5

Объяснение:

При первом выполнении i:=5; Твое условие, если переводить на слова, звучат примерно так: Задать значение для i:= от 5 до 36. Это значит что будет выполнен 31 круг (36-5),  первый круг будет = 5, потом 6,7...36

Вариант 11 Дядя Федор, кот Матроскин и пес Шарик летом жили в Простоквашино, а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон Печкин. Каждое письмо весило в среднем 100 г, каждая посылка - 5 кг, каждая телеграмма - 50 г, каждая бандероль - 500 г. Дядя Федор получил 10 писем, 2 посылки, 10 телеграмм и 1 бандероль. Кот Матроскин получил 4 письма, 1 посылку, 2 телеграммы и 1 бандероль. Пес Шарик не получил ни одного письма, ни одной телеграммы, зато получил 4 посылки и 2 бандероли.Построить электронную таблицу, из которой будет видно: сколько и какой почты получил каждый из трех жителей Про-стоквашино; сколько килограммов почты получил каждый из трех простоквашинпев; сколько весила вся доставленная Печкиным почта одного вида; какой общий груз пришлось перенести почтальону Печкину.  смотри хls

Program example;

const

A=30;

Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный

var

flag_max : integer;
flag_min : integer;

i. jmin,jmax : integer; //счетчики

Randomize;

array max[A];

//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;

//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max

jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;

//минимальный элемент

for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;

//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;

//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);