Const n=40; var a:array[1..n] of integer; i,amax,n1,nn:integer; begin Randomize; Writeln('Элементы массива'); amax:=0; for i := 1 to n do begin a[i]:=Random(61)+170; { [170..230] } Write(a[i]:4); if amax<a[i] then begin amax:=a[i]; n1:=i; nn:=i end else begin if amax=a[i] then nn:=i end end; Writeln; Writeln('Номер первого автомобиля ',n1,', последнего- ',nn) end.
n=40;
var
a:array[1..n] of integer;
i,amax,n1,nn:integer;
begin
Randomize;
Writeln('Элементы массива');
amax:=0;
for i := 1 to n do
begin
a[i]:=Random(61)+170; { [170..230] }
Write(a[i]:4);
if amax<a[i] then
begin amax:=a[i]; n1:=i; nn:=i end
else
begin if amax=a[i] then nn:=i end
end;
Writeln;
Writeln('Номер первого автомобиля ',n1,', последнего- ',nn)
end.
Тестовое решение:
Элементы массива
185 202 226 209 200 183 219 181 228 181 206 171 182 210 226 187 214 229 219 219 219 206 229 183 178 177 197 199 180 186 183 203 191 194 214 197 215 194 221 187
Номер первого автомобиля 18, последнего- 23
37 : 2 = 18 (остаток 1)
18 : 2 = 9 (остаток 0)
9 : 2 = 4 (остаток 1)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
В ответе записываем остатки с конца подсчетов
ответ : 1001010
74(10) = 1001010(2)
23 : 2 = 11 (остаток 1)
11 : 2 = 5 (остаток 1)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ : 10111
23(10) = 10111(2)
17 : 2 = 8 (остатк 1)
8 : 2 = 4 (остаток 0)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ: 10001
17(10) = 10001(2)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ: 10
2(10) = 10(2)