Дан массив из десяти элементов, найти одинаковые элементы массива и проверить больше ли их значения чем a[10], если так то вывести это значение, иначе вывести 0
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(10,-20,20); a.Println; var r:=a.GroupBy(x->x).Select(x->(x.Key,x.Count)). Where(x->(x[1]>1) and (x[0]>a.Last)); if r.Count>0 then Writeln(r.First[0]) else Writeln(0) end.
// Напишите программу, которая в последовательности натуральных чисел определяет количество //чисел, кратных 3. Программа получает на вход количество чисел в //последовательности, а затем сами числа. В последовательности всегда имеется число, //кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. //Программа должна вывести одно число - количество чисел, кратных 3.
Var i,j,x :word; n :integer; begin writeln('Введите количество цифр в последовательности'); Readln (j); if j>100 then //Проверка накличество чисел в последовательности begin writeln ('По условия задачи цифр не должно быть более 100'); writeln ('Введите количесво цифр еще раз'); readln (j); end; for i:=1 to j do begin Writeln ('Введите ',i,' число'); readln (n); if n>300 then //проверка максимального значения числа begin writeln ('Данное число не удовлетворяет условиям задачи (>300'); writeln ('Введите его еще раз'); readln (n); end; n:= n mod 3; if n=0 then x:=x+1; end; Writeln ('Количество чисел, кратных 3:'); Writeln (x); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,20); a.Println;
var r:=a.GroupBy(x->x).Select(x->(x.Key,x.Count)).
Where(x->(x[1]>1) and (x[0]>a.Last));
if r.Count>0 then Writeln(r.First[0])
else Writeln(0)
end.
Пример
10 14 9 -2 -5 -5 -20 -11 14 -13
14