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.
ответ: 6
Объяснение:
a:=10; for i:=1 to 2 do begin a:=a-2 end;
Переменная a = 10. Потом идёт цикл от 1 до 2, который будет присваивать переменной a новое значение: a[новое] = a[старое] - 2.
Цикл от 1 до 2, то есть, он будет выполнятся 2 раза (при i=1 и i=2).
10 -2 -2 = 6