Написати програму, що складається з двох списків Listbox. У першому буде перелік предметів зананий програмою. Другий список порожній, нехай
це буде шкільне приладдя.

Доопрацювати попередню програму
При кліці на одну кнопку предмет повинен переходити з одного списку
в інший. При кліці на іншу кнопку – повертатися (людина передумала брати з
собою)

//1
var
  A: array [1..10] of integer;
  i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
  A[i] := random(81)-40;
  write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
  if i mod 2 = 0 then A[i] := sqr(A[i])
  else A[i] := sqr(i);
  write(A[i], ' ');
end;
end.

//2
var
  A: array [1..10] of real;
  i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
  A[i] := random(41)-20;
  write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
  if A[i] < 0 then A[i] := sqr(A[i]);
  if A[i] > 0 then A[i] := sqrt(A[i]);
  write(A[i]:0:2, ' ');
end;
end.

//3
var
  A: array [1..200] of real;
  i, N: byte;
  sum: real;
begin
  write('Введите N = ');
  readln(N);
  sum := 0;
  for i := 1 to N do
  begin
    write('З/П за ', i ,' месяц = ');
    readln(A[i]);
    sum := sum + A[i];
  end;
  writeln('Общий доход = ', sum:0:2);
end.

Судя по всему что то навернулось под капотом. Проверь все контакты, померяй напрягу мультиметром на БП*, ну и на крайняк тащи в сервис

Объяснение:

*Напряжение БП меряют соединяя контакты в разъёмах MOLLEX или 8+pin следующим

На проводах БП - Чёрный провод - ЗЕМЛЯ. К Этому контакту подключаем землю мультиметра. Далее соединяем:

Земля - Жёлтый провод - линия +12 (Номинал - 12 V, отклонение - +- 0.5 V)

Земля - Красный - Линия +5 (Номинал - 5 V, Отклонение - +- 0.25 V)

Земля - Оранжевый - Линия +3.3 (Номинал - 3.3 V, Отклонение - +- 0.3 V)

** Если комп работает всего 3-5 сек, то сначала подключай мультиметр к нужной линии а потом включай комп.