Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
<span>int [ , ] array = new int [2,3];
</span>Random rnd=new Random();
For (int i=0; i<array.lenght; i++)
{
For (int j=0; i<array.lenght; j++)
{
a[i,j]=rnd.Next(-25,25);
if (array[i,j]<0) Console.WriteLine("Есть");
}
}
Если я тебя понял правильно делается запрос на имя Елена и дату рождения 1989 и выдается количество подходящих под запрос в твоем случае таких четверо ответ номер 4 (4 подходящих)
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.