Если не вдаваться в подробности то int *a тоже самое что и int a[]
Петренко1852
03.04.2023
Var a, b, c: integer; function min_3(const a, b, c: integer): integer; var local_min: integer; begin if (a < b) then local_min : = a else local_min : = b; if (c < local_min) then local_min : = c; result : = local_min end; function max_3(const a, b, c: integer): integer; var local_max: integer; begin if (a > = b) then local_max : = a else local_max : = b; if (c > local_max) then local_max : = c; result : = local_max; end; begin writeln('введите a, b, c -> '); readln(a, b, c); writeln('результат: ', min_3(a, b, c) + max_3(a, b, c), '.'); end.
emaykova785
03.04.2023
Var a: array of integer; i, num, len, amount: integer; begin amount : = 0; len : = 1; i : = 0; num : = -1; write('введите последовательность чисел -> '); repeat setlength(a, len); read(a[i]); num : = a[i]; i += 1; len += 1; // длина массива until (num = 0); for i : = 0 to high(a) do if (a[i] mod 7 = 0) and (a[i] mod 2 = 0) and (a[i] < > 0) then amount += 1; write('количество чётных чисел, кратных 7: ', amount, '.'); end.