1)дан массив целых чисел. выяснить, верно, ли что сумма элементов массива есть четное число. 2)дан массив целых чисел. напечатать все элементы, оканчивающиеся нулем.

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
   os:byte;
Begin
Randomize;
Write('Исходный массив:');
os:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    os:=(os+(A[i] mod 10)) mod 10;
    End;
WriteLn;
if os mod 2 = 0 then WriteLn('Сумма - четное число')
else WriteLn('Сумма - нечётное число');
Write('Элементы, оканчивающиеся нулём:');
For i:= 1 to N do
    if A[i] mod 10 = 0 then Write(' ',A[i])
End.

'Zdacha in VB.NET
Module Module1
Sub Main()
dim n as integer=console.readline()
dim mas(n),sum as integer
for i=1 to n
mas(i)=val(console.readline())
sum+=mas(i)
if mas(i) mod 10=0 then console.writeline(mas(i))
next
if sum mod 2=0 then console.writeline("Chetnoe chislo") else console.writeline("Nechetnoe chislo")
End Sub
End Module

1) ACI, PCY, SCCU, SATA. Каждая шина отвечает за свои устройства, поэтому их так много.

2) Характеристика шины: разрядность потока шины от 32 до 64, скорость передачи данных от 550 мб до 2 ГБ, температура от 20 до 30 градусов.

3) Жёсткий диск(ACI), клавиатура(USB), колонки(PCI), мышь(USB).

4) Их всего 4 вида: SATA, ATA-E, MicroUSB, FSI.

5) На сегодняшний день существует два современных интерфейса, это SQL и SATA. Они используются оба, потому что для каждого интерфейса нужны свои системные шины, к которым соответственно, подключаются контроллеры.

var
a:real;
b:real;
c:real;
x1,x2,x3:integer;
y1,y2,y3:integer;
p:real;
s:real;
begin
writeln('первые координаты треугольника x ');
readln(x1);
writeln('вторые координаты треугольгика x ');
readln(x2);
writeln('третьи координаты треугольгика x ');
readln(x3);
writeln('четвертые координаты треугольгика y ');
readln(y1);
writeln('пятые координаты треугольгика y ');
readln(y2);
writeln('шестые координаты треугольгика y ');
readln(y3);
a:=sqrt(x2-x1)+ (y2-y1);
b:=sqrt(x3-x2)+(y3-y2);
c:=sqrt(x3-x1)+(y3-y1);
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Периметр = ',p:2:0);
writeln('Площадь=',s:1:2);
readln;
end.