Это в том случае, когда нужно, чтобы компьютер сам выдавал рандомные числа:
var a:array [1..100] of integer; i: integer; begin for i:=1 to 100 do begin a[i]:=random (100)-50; if (a[i] mod 3=0)and(a[i] mod 6<>0) then write(a[i]); end; end.
если же есть определенный ряд чисел, то программа будет выглядеть вот так:
var a:array [1..100] of integer; i, n: integer; begin read(n); - здесь вводим кол-во чисел. for i:=1 to n do begin read(a[i]); - вводим числа с клавиатуры. if (a[i] mod 3=0)and(a[i] mod 6<>0) then write(a[i], ' '); end; end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию! begin var a:= ArrRandom(10, -100, 100);a.Println; Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count); Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum); Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average); if a.Where(t -> t > 0).Count > 0 then Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max) else Writeln('Положительных чисел нет');
