program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.
uses Crt;
const
n=20;
var
a:array[1..n] of real;
i,k:integer;
t:real;
begin
Randomize;
ClrScr;
Writeln('Массив случайных чисел');
k:=0;
for i:=1 to n do begin
a[i]:=Random(31)-15.0;
Write(a[i]:6:1);
if a[i]=10.0 then Inc(k)
end;
Writeln;
Writeln('Количество элементов, равных 10: ',k);
Write('Нулевые элементы ');
k:=0;
for i:=1 to n do
if a[i]=0 then begin Inc(k); Write(i,' ') end;
if k=0 then Writeln('отсутствуют') else Writeln;
Writeln('Меняем местами элементы 3 и 6');
t:=a[3];
a[3]:=a[6];
a[6]:=t;
for i:=1 to n do
Write(a[i]:6:1);
Writeln
end.
Тестовое решение
Массив случайных чисел
2.0 -12.0 8.0 -2.0 -1.0 3.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0
Количество элементов, равных 10: 1
Нулевые элементы 12
Меняем местами элементы 3 и 6
2.0 -12.0 3.0 -2.0 -1.0 8.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0