Я думаю так:
И П С
П ИС
С И П
Возможные варианты очереди.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
uses Arrays;
begin
var S := CreateRandomIntegerArray(10,4,33);
writeln('Массив: ', S);
writeln('Индексы массива начинаются с 0!');
writeln('Минимальный элемент: ', S.Min, '. Индекс: ', S.IndexOf(S.Min));
writeln('Максимальный элемент: ', S.Max, '. Индекс: ', S.IndexOf(S.Max));
end.
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
B=4/2*2-5=2*2-5=4-5=-1
a=2*2/(1-)+3*(-1)=4/(-1)+3*(-1)=-4+(-3)=-7
A=-7