var p,s,n,m:integer; a:array [1..10,1..10] of integer;
begin writeln('Введите кол-во столбцов'); readln(n); writeln('Введите кол-во строк'); readln(m); writeln('Ввод матрицы'); for var i:=1 to n do for var j:=1 to m do begin write('a[',i,',',j,']='); readln(a[i,j]); end; writeln('Вывод матрицы'); for var i:=1 to n do begin for var j:=1 to m do write(a[i,j],' '); writeln; end; s:=0; for var i:=1 to n do for var j:=1 to m do begin s:=s+a[i,j]; end; p:=0; for var i:=1 to n do for var j:=1 to m do if a[i,j] mod 5 = 0 then begin inc(p); end; writeln('Сумма элементов - ',s); writeln('Кол-во элементов, кpатных 5 - ',p); end.
Собственно, здесь нет ничего удивительного. Как и в любой сфере, связанной с чем то, где требуется какой то образец для начинающих всегда требуется в данном случае это шаблон.Потому что, существуют определенные рамки,правила, Уставы, Законы того или иного общества, сообщества. Если это будет отсутствовать , то это уже будет сфера не профессиональная, а на уровне дилетанства.Ни одна сфера деятельности этого не потерпит. Поэтому, все верно, залогом правильности, верности, образца и хорошей дальнейшей деятельности служит макет, ШАБЛОН.
Датчик цвета распознает 7 цветов
ответ •7