3 Найти количество отрицательных элементов каждого столбца матрицы Х(5,6). Результат записать в вектор К(6).
3 Найти количество отрицательных элементов каждого столбца матрицы Х(5,6). Результат записать в вектор К(6).
Гость
Ответ(ы) на вопрос:
Гостьconst n=5; m=6;
var x:array[1..n,1..m] of integer;
k:array[1..m] of integer;
i,j,k0:integer;
begin
Randomize;
For i:=1 to n do begin
for j:=1 to m do begin
x[i,j]:=Random(20)-10;
write(x[i,j]:4);
end;
writeln;
end;
for j:=1 to m do begin
k0:=0;
for i:=1 to n do if x[i,j]<0 then k0:=k0+1;
k[j]:=k0;
end;
writeln('Количество отрицательных элементов в столбцах:');
for j:=1 to m do write(k[j]:4);
writeln;
end.
Не нашли ответ?
Похожие вопросы