//Pascal ABC.NET Версия 2.2 Сборка 790 var ma:array[1..10,1..10] of integer; ar:array[1..10] of integer; i,j,s:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do begin; ma[i,j]:=random(-10,10); write(ma[i,j]:5); if ma[i,j]<0 then ar[i]+=ma[i,j]; end; end; writeln; writeln('Final array:'); for i:=1 to 10 do writeln(ar[i]); end.
var ma:array[1..10,1..10] of integer;
ar:array[1..10] of integer;
i,j,s:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 10 do
begin;
ma[i,j]:=random(-10,10);
write(ma[i,j]:5);
if ma[i,j]<0 then ar[i]+=ma[i,j];
end;
end;
writeln;
writeln('Final array:');
for i:=1 to 10 do
writeln(ar[i]);
end.
Пример вывода:
Matrix:
9 -1 3 -10 6 3 -9 8 5 -6 -4 4 -6 7 7 7 -10 4 -2 3 -9 -3 10 -9 2 -7 1 -8 -8 -8 -5 -4 2 -5 -9 -9 3 6 7 -5 3 8 10 0 -9 4 -3 6 -10 -9 9 10 -8 1 -1 2 -1 1 -2 3 -8 10 5 3 10 -10 -8 9 6 6 -6 -5 8 -7 -10 -7 -2 -1 -10 9 7 5 -9 -10 -6 -5 -7 -9 7 -1 2 -9 -2 -6 -8 4 -7 -3 1 -9
Final array:
-26
-22
-52
-37
-31
-12
-26
-48
-47
-44
Объяснение:
1. БЕЗ ПРИЗНАКОВ ЖИЗНИ (нет изображения, звуковых сигналов, не включаются светодиоды на системной плате и вентилятор ЦП)
2. ПК РАБОТАЕТ, НЕТ ИЗОБРАЖЕНИЯ (вентилятор ЦП работает, светодиоды материнской платы горят, но видеосигнала на мониторе нет)
3. BIOS ПРЕКРАЩАЕТ РАБОТУ (компьютер работает, но BIOS внезапно прекращает свою работу с ошибкой)
4. НЕ УДАЕТСЯ ЗАГРУЗИТЬ WINDOWS (появляется логотип ОС, но пользовательский интерфейс не загружается)
5. ПК РАБОТАЕТ СО СБОЯМИ (компьютер загружается, но «зависает» через некоторое время или под нагрузкой)
6. НЕ РАБОТАЮТ КОМПОНЕНТЫ ПК (проблемы с изображением или звуком, а также с портом USB и модулем Wi-Fi или приводом CD, DVD)