Program ideone; Var min1, min2, A, A1, B, B1, C, C1 : integer; Function min(Var a, b, c : integer) : integer; begin if (a<b) and (a<c) then min := a else if b<c then min := b else min := c; end;
Procedure max(Var a, b : integer); begin if (a>b) then writeln(a) else writeln(b); end;
public class MainClass { public static void Main() { Console.Write("Введите количество элементов массива: "); int size = Convert.ToInt32(Console.ReadLine()); int[] a = new int[size]; for (int i = 0; i < size; i++) { Console.Write($"[{i}] = "); a[i] = Convert.ToInt32(Console.ReadLine()); } int prev = a[0]; for (int i = 1; i < size; i++) { if (a[i] <= prev) { Console.WriteLine("Последовательность не возрастающая"); return; } else { prev = a[1]; } } Console.WriteLine("Последовательность возрастающая"); return; } }
Грубо говоря, низкоуровневые языки используются для написания конкретного кода, под конкретное железо, для них нужно все подробно расписывать, например драйвера. Язык программирования высокого уровня – это язык программирования, максимально приближённый к человеческому языку (обычно к английскому, но есть языки программирования на национальных языках, например, язык 1С основан на русском языке) . Язык высокого уровня практически не привязан ни к конкретному процессору, ни к операционной системе (если не используются специфические директивы), на этих языках пишутся программы, игры и т.д.
Var min1, min2, A, A1, B, B1, C, C1 : integer;
Function min(Var a, b, c : integer) : integer;
begin
if (a<b) and (a<c) then min := a
else if b<c then min := b
else min := c;
end;
Procedure max(Var a, b : integer);
begin
if (a>b) then writeln(a)
else writeln(b);
end;
begin
read(A, B, C, A1, B1, C1);
min1 := min(A, B, C);
min2 := min(A1, B1, C1);
max(min1, min2);
end.