Const n = 10;
var a:array [1..n] of integer;
i,min,imin:integer; p:longint;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
min:=a[1]; imin:=1;
p:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; imin:=i; end;
if a[i]<0 then p:=p*a[i];
end;
writeln('min = ',min,' imin = ',imin);
writeln('p = ',p);
end.
Пример:
9 5 10 -5 2 10 0 8 -8 2
<span>min = -8 imin = 9
p = 40</span>
Проанализируем номера финишировавших бегунов: 12219,
14176, 7133, 990. Данная числовая последовательность, на первый взгляд, не
упорядочена, т.к. после первого числа сначала следует большее, а потом –
меньшее. Но, обращая внимание на три последних цифры в числах и, выписав их,
замечаем, что прослеживается довольно простая зависимость: 219, 176, 133, т.е.
каждое последующее число меньше предыдущего на 43. Действительно,
219-176=43; 176-133=43. Проверяем догадку: 133-90=43.
Следовательно, следующее число 90-43=47. Что же представляют из себя старшие
разряды номеров финишировавших спортсменов? Можно заметить, что они
представляют из себя сумму цифр последующих разрядов, т.е.: 2+1+9=12; 1+7+6=14;
1+3+3=7;
9+0=9. Значит, необходимо найти сумму цифр полученного
нами числа 47.
<span>4+7=11. Следовательно, номер спортсмена,
финишировавшего пятым, равен 1147.</span>
Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)
Const n=4; m=5;
var a:array [1..n,1..m] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:6);
end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.
Пример:
Исходный массив:
5 8 2 -5 -4
1 -10 9 1 -4
8 2 -6 -4 -4
8 7 3 2 2
min=a[2,2]=-10
