<span>А. for i:=-5 to 5 do тело цикла; - 11 раз
В. for i:=6 to 2 do тело цикла; - 0 или 1 раз
С.for i:= 3to 3 do тло цикла ; - 1 раз
D. for i:=3 downto 4 do тело цикла - 1 или 0 раз
E. for i := 3 downto 1 do - 3 раза</span>
Ответ:
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.
Объяснение:
трассировочная таблица на скриншоте
Скорее всего, 1 бит.
Если достали красный - да, 1
Достали другой цвет - нет, 0
Ответ:выход их лабиринта
Объяснение:знак выход избушка лабиринт а
Задавать нужно для того, чтобы, например, текст не сливался с рисунком в презентации, допустим.
Виды:
- Сверху и снизу
- Вокруг
- По контуру
- Нет обтекания - таки спорно это, но, все же, это - вид