Его можно рассматривать как систему, состоящую из подсистем «аппаратное обеспечение», «программное обеспечение», «информационные ресурсы»Подсистема аппаратного обеспечения выступает в качестве надсистемы для устройств ввода, обработки, хранения и вывода информации.
Операционная система — подсистема программного обеспечения и надсистема, в состав которой входят системные и служебные программы.
Система информационных ресурсов включает в себя системы текстовых и графических файлов, звуковых файлов, файлов с видеоинформацией и т. д.
var a:array[1..5,1..3] of integer;
b:array[1..5] of integer;
i,j,p:integer;
begin
writeln('Массив А ');
for i:=1 to 5 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j]:3)
end;
writeln
end;
writeln;
for i:=1 to 5 do
begin
p:=1;
for j:=1 to 3 do if a[i,j]<>0 then p:=p*a[i,j];
b[i]:=p
end;
write('Массив B ');
for i:=1 to 5 do write(b[i],' ')
end.
Объяснение:
Не учитывает ситуацию когда все элементы строки равны 0. По условию непонятно, что делать в этом случае.