1. begin var n:=ReadlnInteger('n ='); var a:=ArrRandom(n,0,500); a.Println; Writeln('Выбранные элементы:'); a.Select(x->x).Where(x->(x mod 2=0)and(x mod 3=0)and(x mod 4<>0)).Println; end.
2. const n=10; var a: array[1..n] of integer; i : integer; begin writeln('Исходный массив:'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; writeln; for i:=1 to n do if (a[i] mod 2=0)and(a[i] mod 3=0)and(a[i] mod 4<>0) then write(a[i],' '); end.
Для большей наглядности вместо диапазона [-10000; 10000] взят [-10;10]. begin var n:=ReadlnInteger('n ='); var m:=ReadlnInteger('m ='); var a:=MatrRandom(n,m,-10,10).Println(5); var mx:=a.ElementsByRow.Max; var mn:=a.ElementsByRow.Min; Println(mx,' ',mn); var k1:=a.ElementsByRow.Where(x->x=mx).Count; var k2:=a.ElementsByRow.Where(x->x=mn).Count; Println(k1,' ',k2); end.
1)Сайт ()()()()
2) Google ()()()