мне с сором по информатике​

системный блок поставь лайк и лучший ответ

Системный блок

Он подключается к монитору

1) a := 4;  

b := 6;

b := 8 + a * b;

a := b / 4 * a.

а = 4

b = 6

b = 8 + 4 * 6 = 32

a = 32 / 4 * 4 = 32 / 16 = 2

2) a := 3;

b := 6;

b := 12 + a * b;

a := b / 5 * a.

a = 3

b = 6

b = 12 + 3 * 8 = 30

a = 30 / 5 * 3 =  6 * 3 = 18

3) a := 8;

b := 8 + a / 2;

a := a – b / 2.

a = 8

b = 8 + 8 / 2 = 12

a = 8 - 12 / 2 = 8 - 6 = 2

4) a := 2;

b := 6;

b := 12 + a * b;

a := b / 4 * a.

a = 2

b = 6

b = 12 + 2 * 6 = 12 + 12 = 24

a = 24 / 4 * 2 = 6 * 2 = 12

5) a := 3;

b := 8 + 2 * a;

a := b / 2 * a.

a = 3

b = 8 + 2 * 3 = 8 + 6 = 14

a = 14 / 2 * 3 = 7 * 3 = 21

6) f := 21;

e := 10;

f := 5 * f + 5;

e := f – 10 – e * 5.

f = 21

e = 10

f = 5 * 21 + 5 = 105 + 5 = 110

e = 110 - 10 - 10 * 5 = 100 - 50 = 50

7) a := 14;

b := 4;

a := a / 2 - b;

b := (a * b) / 2;

b := a + b

a = 14

b = 4

a = 14 / 2 - 4 = 7-4 = 3

b = ( 3 * 4) / 2 = 12 / 2 = 6

b = 3 + 6 = 9

8) b := 5;

a := -3;

a := 7 + a * b;

b := a / 2 + b

b =5

a = -3

a = 7 + (-3 * 5) = 7 + (-15) = -8

b = -8/2 + 5 = -4 +5 = 1

9) a := 4;

b := 5;

a := b + 15;

b := 100 / a * 4.

a = 4

b = 5

a = 5 + 15 = 20

b = 100 / 20 * 4 = 5 * 4 = 20

10) b := 8;

a := 10;

b := b + a * 2;

a := 29 - a;

b = 8

a = 10

b = 8 + 10 * 2 = 8 + 20 = 28

a = 29 - 10 = 19;

Объяснение:

1)program Mas;uses crt; const nmax=100; var x:array[1..nmax]of Integer; i,n,b,bcol,proz:Integer; begin proz:=1; repeat begin ClrScr; Write('Введите размер одномерного массива(n),n='); Read(n); end; until n<=nmax; Writeln('Введите значения элементов массива:'); for i:=1 to n do Read(x[i]); Writeln('Введенный массив:'); for i:=1 to n do Write(x[i],' '); Writeln; Write('Введите число B:'); Read(b); for i:=1 to n do if x[i]<b then inc(bcol); Writeln('Количество элементов меньших B:',bcol); for i:=1 to n do proz:=proz*x[i]; Writeln('Произведение всех элементов массива:',proz); Readln; end.
2)program p1;var    x:array[1..100] of integer;    max,i,n:integer; begin write('Введите количество элементов='); readln(n); writeln('Исходный массив'); randomize; for i:=1 to n do  begin   x[i]:=random(101)-50;   write(x[i]:3);   if (x[i]>=max) then max:=x[i];  end; writeln; writeln('Новый массив'); for i:=1 to n do  begin   if (abs(x[i])=max) and (x[i]<>max) then x[i]:=1;   if (x[i]<>max) and (abs(x[i])<>max) then x[i]:=0;   write(x[i]:3);  end; readln end.
3)var  a: array[1..15] of integer;   i: integer;   av: integer;   begin   randomize;   for i := 1 to 15 do a[i] := random(40) + 10;   writeln('Исходный массив: ');   for i := 1 to 15 do write(a[i], ' ');   writeln;   av := 1;   for i := 1 to 15 do     if a[i] mod 7 = 0 then av := av * a[i];   if av = 1 then writeln('Массив не содержит элементов , которые кратны 7!')   else writeln('Произведение равно: ', av); end.
4)uses crt;const n=31; var a:array[1..n] of integer;     i:byte;     max:integer;     sr:real; begin clrscr; writeln('Vvedite temperaturu po dnyam:'); sr:=0; for i:=1 to n do   begin     write(i,' maya: ');     readln(a[i]);     sr:=sr+a[i]/31;   end; clrscr; writeln('Massiv temperatur:'); max:=a[1]; for i:=1 to n do   begin     write(a[i],' ');     if a[i]>max then max:=a[i];   end; writeln; writeln('Samye teplye dni s temperaturoj ',max,' grad'); for i:=1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('Srednya temperatura=',sr:0:1,' grad'); readln end.
5)program PROG5_2;const   N = 10;   var   a     : array [1..N] of integer;   i     : integer;   imin, imax : integer;   d, c, s     : integer;   begin     {Заполнение массива а случайными числами}    randomize;    for i:=1 to N do      a[i]:=random(100);     {Вывод массива а на экран}   writeln('Исходный массив:');   for i:=1 to N do     write(a[i]:6);   writeln;     {Нахождение индексов наибольшего и наименьшего эемаентов массива}  imin:=1;   {Индекс наименьшего элемента}  imax:=1;   {Индекс наибольшего элемента}  for i:=2 to N do  begin    if a[i] < a[imin] then       imin :=i;      if a[i] > a[imax] then      imax := i;  end;    {Вывод ответа}  writeln('Наименьший элемент a[',imin,']=',a[imin]);  writeln('Наибольший элемент a[',imax,']=',a[imax]);    {Подсчет количества и суммы чисел между минимальным и максимальным значениями}   c:=0;      {Количество}   s:=0;      {Сумма}   for i :=imin to imax do