В операторах Dat[1] := 7; ... ; <span>Dat[10] := 9; задаются элементы массива.
</span><span>m := 0; n := 0; - начальные значения переменных m и n.
В цикле </span>for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (<span>Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива).
Ответ: 8</span>
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
var
n,d1,d2,d3:integer;
begin
Write('n='); Read(n);
d1:=n div 100; d3:= n mod 10;
d2:=(n div 10) mod 10;
if (d1=d2) or (d1=d3) or (d2=d3) then Writeln('Да')
else Writeln('Нет')
end.
<u><em>Тестовые решения:</em></u>
n=123
Нет
n=121
Да
n=222
Да
Программа на Pascal
---------------------------------
Program Test;
Var num, i: integer;
Begin
Write('Введите число: ');
Readln(num);
if (num > 0) then
begin
for i := 1 to 5 do
num := num + 2;
Writeln();
Writeln('Число после увеличения: ', num);
end
else
begin
Writeln();
Writeln('Число не положительно');
end;
End.