Ответ учителя по предмету Информатика
var
M: array[1..255, 1..255] of integer;
a,b,n,i: integer;begin
write(‘N: ‘);
read(n);
// Заполнение матрицы
for a:=1 to n do
for b:=1 to n do
begin
write(a,’;’,b,’:’);
read(M[a,b]);
end;
// Обработка матрицы
for b:=1 to n do
begin
i:=0;
for a:=1 to n do
if M[a,b] > 5 then i+=1;
writeln(b,’ столбец: ‘, i);
end;
end.
Похожие вопросы от пользователей
Продолжается (в) течен.. недели, (в) течени.. реки, (в) следстви.. сделана ошибка, (в) следстви.. долгих дождей урожай не убран, выйти (на) встречу гостям, идти (на) встречу с друзьями, (на) счёт работы, положить деньги (на) счёт в банке, учились (не) смотря на выходной: шёл, ни на кого (не) смотря:(в) ни…: (в) заключени.. диссертации: (не) взирая на непогоду:(не) взирая на лица: узнать в последстви..
Помогите Пж