// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var p:=ArrRandom(200,-99,99); p.Println; Writeln('Числа, кратные трем'); p.Where(k->k mod 3=0).Println; Writeln('Сумма положительных равна ',p.Where(k->k>0).Sum) end.
Const n=20; var a: array[1..n] of integer; i, max, imax, min, imin : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(101)-50; write(a[i],' '); end; writeln; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=2 to n do begin if a[i] > max then begin max:=a[i]; imax:=i; end; if a[i] < min then begin min:=a[i]; imin:=i; end; end; writeln('max=',max,' min=',min); a[imax]:=min; a[imin]:=max; writeln('Измененный массив:'); for i:=1 to n do write(a[i],' '); writeln; end.
Объяснение:
1. Питание процессора
2. Сокет
3. Разъем PCI-E Х1 Контроллеры
4. BIOS
5. Разъем PCI (звук, сеть)
6. Слот оперативной памяти (RAM)
7. Разъем подключения блока питания
8. Северный мост
9. Южный мост
10-11. Слоты SATA (11 слот не очень хорошо видно, могу ошибаться)