Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с
клавиатуры. Размер n.
Kol – количество элементов в последовательности В
К – номер элемента последовательности В
Program newmasiv;
Var a: array[1..100] of integer;
b: array[1..100] of integer;
kol, n, i, k: integer;
Begin
kol:=0; k:=0;
write ('n='); readln (n);
For i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln (a[i]);
if a[i] mod 2=0 then
begin
k:=k+1; b[k]:=a[i]; kol:=kol+1;
end;
end;
if kol=0 then writeln(‘четных элементов нет’) else
for k:=1 to kol do write(‘b[‘,k,’]=’,b[k]);
end;

Задача 1:

program HW1;

var a,b,c:integer;

begin

   write('Ведите три целых числа через пробел: '); readln(a,b,c);

   write('Числа, попадающие в отрезок [1,3]: ');

   if (a >= 1) and (a <= 3) then write(a, ' ');

   if (b >= 1) and (b <= 3) then write(b, ' ');

   if (c >= 1) and (c <= 3) then write(c, ' ');

end.

Задача 2:

program HW2;

var a,b:real;

var c:integer;

begin

   write('Ведите две стороны прямоугольника через пробел: '); readln(a,b);

   writeln('Что трубуется вычислить?');

   writeln('1) Площадь прямоугольника');

   writeln('2) Периметр прямоугольника');

   writeln('3) Диагональ прямоугольника');

   readln(c);

   if c = 1 then writeln('Площадь прямоугольника равна ', a*b:1:1)

   else if c = 2 then writeln('Периметр прямоугольника равна ', 2*(a+b):1:1)

   else if c = 3 then writeln('Диагональ прямоугольника равна ', sqrt(sqr(a)+sqr(b)):1:1)

   else writeln('Введёно некорректное значение.')

end.

Задача 3:

program HW3;

var a,i:integer;

begin

   a := 0;

   for i := 1 to 99 do

       begin

           if (i mod 2 ) <> 0 then a := a + i

       end;

   writeln('Cуммa ряда 1, 3, 5..99: ', a);

end.

1. Корпус, блок-живлення, материнська плата, оперативна память, відеокарта, звукова-карта, жорсткий диск, дисковод, система охолоджування

2. Материнська плата, процессор, оперативна память, блок-живлення, зовнішний диск з данними, система охолоджування.

3. Функціональна частина компютера, що призначенна для інтерпретації команд.

4. 1. Проінспектує задню частину корпусу системного блоку на наявність відеовиходів.

2. Знайдіть VGA-розєм на моніторі.

3. Візьміть відповідний VGA-кабель, який йде в комплекті з монітором, і підключіть перший його кінець в монітор, а другий — в комп'ютер.

4. В кожному компютері є USB-Port. У вільний роз'єм необхідно підключити кабель від клавіатури. Windows встановить необхідні драйвера і потім покаже повідомлення, що пристрій готовий до використання.

Объяснение: