Const M = 3; N = 4; Var A:array[1..M,1..N] of integer; i,j,k:integer; Begin WriteLn('Введите матрицу A(',M,',',N,'):'); For i:= 1 to M do For j:= 1 to N do Read(A[i,j]); WriteLn('Количества положительных элементов в столбцах:'); For j:= 1 to N do Begin k:=0; For i:= 1 to M do if A[i,j] > 0 then k:=k+1; Write(k,' ') End; End.
1. Почему работа компьютера невозможна без операционной системы? Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере? 2. Какие операционные системы вы знаете? Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS 3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы,
4. Какие системы программирования вам известны? Pyton, C++ 5. Для специалистов какой профессии предназначены системы программирования? Программист, Специалист в области кибербезопасности
1. Почему работа компьютера невозможна без операционной системы? Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере? 2. Какие операционные системы вы знаете? Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS 3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы,
4. Какие системы программирования вам известны? Pyton, C++ 5. Для специалистов какой профессии предназначены системы программирования? Программист, Специалист в области кибербезопасности
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
WriteLn('Введите матрицу A(',M,',',N,'):');
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
WriteLn('Количества положительных элементов в столбцах:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j] > 0 then k:=k+1;
Write(k,' ')
End;
End.