№73457.
Определите, что делает следующая программа и какой результат она выдаст на заданном массиве:
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.
просмотры: 590 | информатика 8-9