Дана целочисленная квадратная матрица порядка n. найти номера столбцов: а) все элементы которых – отрицательны; б) в каждом из которых все элементы одинаковых знаков (все или положительные, или отрицательные).
Program test; var a: array of integer; b: array of integer; c: array of integer; aa, bb, cc: integer; begin writeln('Введите размер массива a'); readln(aa); writeln('Введите размер массива b'); readln(bb); a := new integer[aa]; b := new integer[bb]; c := new integer[aa + bb]; cc := 0; aa := 0; bb := 0; writeln('Заполнение массива a'); while(aa < Length(a)) do begin readln(a[aa]); aa := aa + 1; end; writeln('Заполнение массива b'); while(bb < Length(b)) do begin readln(b[bb]); bb := bb + 1; end; while(cc < Length(c)) do begin if(cc < Length(a)) then begin c[cc] := a[cc] end else begin c[cc] := b[cc - Length(a)]; end; cc := cc + 1; end; writeln('Полученный массив'); cc:=0; while(cc < Length(c)) do begin writeln(c[cc]); cc:=cc+1; end;end.
Видеосистема состоит из видеокарты(видеоадаптера) и выводящего устройства(монитор, проэктор и тп) Видеокарта состоит в общих чертах из видеопамяти и видеоконтроллера и графического процессора
Графический процессор(ГПУ, GPU) вычисляет данные изображения которые надо вывести. Сюда же входят разные шейдеры, 3Д графика и тд. Штука это довольно мощная и снимает нагрузку с ЦПУ
Видеопамять - устройство которое хранит результат работы GPU, а так же возможно промежуточные результаты
Видеоконтроллер - отвечает за преобразование сигнала, посылку данных из видеопамяти устройству вывода, дает команду на отрисовку и тп
a)
const n=5;
var a:array [1..n,1..n] of integer;
i,j,k,s:integer;
begin
writeln('Массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(3)-2;
write(a[i,j]:4);
end;
writeln
end;
for j:=1 to n do
begin
k:=0;
for i:=1 to n do
if a[i,j]<0 then k:=k+1;
if k=n then
begin
s:=s+1;
if s=1 then write ('Номера столбцов, все элементы которых отрицательны: ');
write (j,' ')
end
end;
if s=0 then write ('Столбцов, все элементы которых отрицательны - нет');
end.
б)
const n=5;
var a:array [1..n,1..n] of integer;
i,j,kp,ko:integer;
begin
for i:=1 to n do
for j:=1 to n do read (a[i,j]);
writeln('Массив: ');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln
end;
for j:=1 to n do
begin
ko:=0;
kp:=0;
for i:=1 to n do
begin
if a[i,j]<0 then ko:=ko+1;
if a[i,j]>0 then kp:=kp+1
end;
if ko=n then writeln ('В ',j,' столбце все элементы отрицательные');
if kp=n then writeln ('В ',j,' столбце все элементы положительные')
end
end.