Найти сумму элементов матрицы, кратных трем

17.11.2012, 15:47. **Показов** 1890. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Помогите решить.

Найти сумму элементов матрицы, кратных трем. Закрасить указанные элементы.

@Puporev · 17.11.2012, 17:08

Pascal

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,s:integer;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    if a[i,j] mod 3=0 then
     begin
      s:=s+a[i,j];
      textcolor(green);
     end
    else textcolor(black);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textcolor(black);
write('Сумма элементов, кратных 3=',s)
end.

18.11.2012, 16:31

Спасибо большое!

yul111-95
		1
	Найти сумму элементов матрицы, кратных трем 17.11.2012, 15:47. Показов 1890. Ответов 2 Метки нет (Все метки) Помогите решить. Найти сумму элементов матрицы, кратных трем. Закрасить указанные элементы.

Опции темы

Найти сумму элементов матрицы, кратных трем

Решение