По фрагменту программы составить трассировочную таблицу const n = 5;
a: array [1..n] of integer = (5, -8, 15, 15, -8);
var i, b, c: integer;
begin
b := a[1];
c := 1;
for i := 2 to n do if a[i] <= b then
begin
b := a[i];
c := i
end;
writeln(c)
end.​

darytish    2   04.03.2021 20:39    6