Ответ:
var
Dat: array [1..10] of Integer = (70, 80, 90, 100, 80, 40, 40, 70, 80, 90);
i, m, k: Integer;
begin
k := 1;
m := dat[k];
WriteLn (' k, m, i, Dat[k]<m');
for i := 2 to 10 do begin
if Dat [i] < m then begin
m := Dat [i];
k := i;
end;
WriteLn (k:3, m:3, i:4, ' ', Dat[i]<m);
end;
writeln ('m = ', m);
writeln ('k = ', k);
ReadLn;
end.
Объяснение:
трассировочная таблица на скриншоте
10011,101 2→Х10 Ответ: 11.625
Модель - это :
c) Упрощенное представление о реальном процессе или явлении ;
1) подойти к переходу.
2) дождаться пока загариться зелёный сигнал светофора.
3) посмотреть по сторонам.
4) убедиться, что машины стоят.
5) переходить дорогу