program exs;
var a: array [1..30] of integer;
i, min, indMin : integer;
begin
min:=40;
for i:= 1 to 30 do a[i]:=random(30);
for i:= 1 to 30 do begin
if a[i] < min then begin
min:=a[i];
indMin:=i;
end;
end;
write(a[i], ' ', indMin);
end.
это 2
Program
{
static void Main(string[] args)
{
Random rand = new Random();
Console.WriteLine("Введите размерность матрицы MxM :");
int M = Convert.ToInt32(Console.ReadLine());
int[,] matrix = new int[M, M];
for (int j = 0; j < M; j++)
{
for (int m = 0; m < M; m++)
{
matrix[j, m] = rand.Next(-10, 10);
Console.Write(matrix[j, m] + " ");
}
Console.WriteLine();
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,10,99); a.Println;
Writeln('min10=',a.Where(x->x mod 10=0).Min)
end.
Пример
73 14 50 76 47 38 42 76 29 96 22 95 90 12 36 47 11 46 20 58
min10=20