//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 сек, то сначала подключай мультиметр к нужной линии а потом включай комп.