Const n = 10; var a: array [1..n, 1..n] of integer; i, j, min, max, result: integer; begin for i := 1 to n do for j := 1 to n do readln(a[i, j]); min := a[1, 1]; max := a[1, 1]; for i := 1 to n do for j := 1 to n do begin if a[i, j] > max then max := a[i, j]; if a[i, j] < min then min := a[i, j]; end; result := sqr(min) * sqr(max); writeln(result); end.
begin var n:=ReadInteger(); var a:=ReadArrReal(n); var k:=a.Where((x,i)->(i>0)and(i<n-1)and (a.ElementAt(i)>a.ElementAt(i-1))and(a.ElementAt(i)>a.ElementAt(i+1))).Count; Writeln(k); end.
Пример: 9 3 -1 12 5 -17 5 2 15 -5 3
9) begin var n:=ReadInteger(); var a:=ReadArrInteger(n); var k:=a.Where((x,i)->(i<n-1)and(a.ElementAt(i)=a.ElementAt(i+1))).Count; Writeln(k); end.
Пример: 9 3 -1 -1 5 -17 5 2 2 -5 2
10) begin var n:=ReadInteger(); var a:=ReadArrInteger(n); var k:=a.Where((x,i)->(i<n-1)and(a.ElementAt(i) mod 2=0)and(a.ElementAt(i+1) mod 2=0)).Count; Writeln(k); end.
2. Конференция длится три дня. В первый и второй день выступают по 15 докладчиков, в третий день – 20. Какова вероятность того, что доклад профессора М. выпадет на третий день, если порядок докладов определяется жеребьевкой?1. В корзине 9 красных шаров и 3 синих. Шары различаются только цветом. Наугад (не глядя) достаём один из них. Какова вероятность того, что выбранный таким образом шар окажется синего цвета? 3. В жеребьевке участвуют 5 немцев, 8 французов и 3 эстонца. Какова вероятность того, что первым (/вторым/седьмым/последним – не важно) будет выступать француз.
var a: array [1..n, 1..n] of integer;
i, j, min, max, result: integer;
begin
for i := 1 to n do
for j := 1 to n do
readln(a[i, j]);
min := a[1, 1]; max := a[1, 1];
for i := 1 to n do
for j := 1 to n do
begin
if a[i, j] > max then
max := a[i, j];
if a[i, j] < min then
min := a[i, j];
end;
result := sqr(min) * sqr(max);
writeln(result);
end.