Program n1; var x: integer; begin writeln('Введите число'); readln(x); if (x mod 10 = 5) or (x mod 10 = -5) then writeln('Число оканчивается на 5') else writeln('Число не оканчивается на 5'); end.
program p2; var x, y, sum: integer; begin writeln('введите число'); readln(x); if ((x >= 10) and (x <= 99)) or ((x <= -10) and (x >= -99)) then writeln('является двузначным') else writeln('не является двузначным'); y := abs(x); sum := 0; while (y <> 0) do begin; sum := sum + (y mod 10); y := y div 10; end; if sum = 8 then writeln('сумма цифр равна 8') else writeln('сумма цифр не равна 8'); end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i, n, min, max, imax, imin: integer;
begin write('Число элементов в массиве ');readln(n); setlength(a, n); min := maxint;max := -maxint; for i := 0 to n - 1 do begin a[i] := random(101) - 50; if a[i] > max then begin max := a[i];imax := i; end; if a[i] < min then begin min := a[i];imin := i; end; write(a[i]:4); end; writeln; writeln('min = ',min,' max = ',max); //меняем местами max и min и выводим массив swap(a[imax], a[imin]); for i := 0 to n - 1 do write(a[i]:4); end.
Тестовое решение: Число элементов в массиве 10 -19 -14 -44 -3 -4 -46 -1 -39 13 32 min = -46 max = 32 -19 -14 -44 -3 -4 32 -1 -39 13 -46
Если с использованием const, то вот
Объяснение:
Непонятно зачем заполнять массив нулями, когда в нем по умолчанию все элементы равны нулю, но да ладно.
const N=10;
var
a:array [1..N] of integer;
begin
for var i:=1 to N do
a[i]:=0
end.