Определить в массиве сумму остатков от деления на 3 тех элементов, которые не кратны трём

@aShsville · Регистрация: 15.12.2014

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

Ввести двумерный массив A 3х4 . Определить в нём сумму остатков от деления на 3 тех элементов, которые не кратны трём.

@Joy · 17.02.2015, 06:53

Pascal

var
  a:array[1..3,1..4] of integer;
  i,j,k:integer;
begin
  k:=0;
  writeln('Введите массив по строкам');
  for i:=1 to 3 do begin
    write('Строка ',i,':');
    for j:=1 to 4 do begin
      read(a[i,j]);
      k:=k+a[i,j] mod 3;
    end;  
  end;
  writeln('Сумма остатков от деления на 3 тех элементов, которые не кратны трём:',k);
end.

@aShsville 10 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 4
		1
	Определить в массиве сумму остатков от деления на 3 тех элементов, которые не кратны трём 16.02.2015, 20:31. Показов 1491. Ответов 1 Метки нет (Все метки) Ввести двумерный массив A 3х4 . Определить в нём сумму остатков от деления на 3 тех элементов, которые не кратны трём. 0

	17.02.2015, 06:53

Опции темы

Определить в массиве сумму остатков от деления на 3 тех элементов, которые не кратны трём

Решение