Var x1,y1,x2,y2,v1,v2:real; begin writeln("введите количество метров пробегания жирафа"); read(y1); writeln("введите, за сколько секунд он должен пробежать"); read(x1); writeln("введите количество метров пробегания зайца"); read(y2); writeln("введите, за сколько секунд он должен пробежать"); read(x2); v1:=y1/x1; v2:=y2/x2; if v1>v2 then begin writeln("жираф чемпион"); end else if v1<v2 then begin writeln("заяц чемпион"); end else begin writeln("победила дружба); end; end;
В операторах Dat[1] := 7; ... ; Dat[10] := 9; задаются элементы массива. m := 0; n := 0; - начальные значения переменных m и n. В цикле for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива). ответ: 8
var
number: integer;
begin
readln(number);
for var i := 1 to number.ToString().Length do
writeln('Разряд ' + Power(10, i - 1) + ': ' + number.ToString()[i]);
end.