В операторах 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>
954-459=495
100a+10b+c-100c-10b-a=99a-99c=99(a-c)
найдем все трехзначные что делятся на 99
198
297
396
495
594
693
792
891
990
и проверяем каждое
1.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var max_1:=a.Max;
writeln('max_1 = ',max_1,' i_Max_1 = ',a.IndexMax+1);
var max_2:=a.Where(x->x<>max_1).Max;
writeln('max_2 = ',max_2,' i_Max_2 = ',a.IndexOf(max_2)+1);
end.
Пример:
58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38
max_1 = 84 i_Max_1 = 11
max_2 = 83 i_Max_2 = 18
2.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var sr:=a.Average;
writeln('Среднее = ',sr);
var m:=a.MinBy(x->abs(x-sr));
writeln('Искомый номер = ',a.IndexOf(m)+1);
end.
Пример:
74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75
Среднее = 50.7
Искомый номер = 6
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
