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.
Книга, т. к. это носитель информации
Первый вопрос - первое вложение. Второй - два остальных.
5) а) Энциклопедия
б) Вес штанги, взятой сспортсменами
в) Летопись
10) Нет. Зная формулу линейного уравнения можно столкнуться с необходимостью деления на 0. Формула здесь не поможет. Поможет логика: на ноль делить нельзя!
11) Да. Пишу план изложения.
9) б) 29
в) 36
г) 45
е) отсутствует 4
а) и д) не сообразил....
Подумай, пожалуйста САМ!