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

@Виктория11 · Регистрация: 06.11.2014

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

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

@ZX Spectrum-128 · 08.11.2014, 11:28

Взято отсюда и доделано.
Определить в массиве произведение остатков от деления на 4 тех элементов, которые не кратны четырем

Pascal

uses crt;
const n=14;
var a:array[1..n] of integer;
    i,sum,k:integer;
begin
clrscr;
writeln('Введите элементы масива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Полученный массив');
sum:=1;
k:=0;
for i:=1 to n do
 begin
  write(a[i],' ');
  if a[i] mod 3<>0 then
   begin
    sum:=sum+(a[i] mod 4);
    k:=1;
   end;
 end;
writeln;
if k=0 then write('Все элементы кратны 3')
else write('Сумма остатков элементов, не кратных 3 от деления на 4=',sum);
readln
end.

@Виктория11 0 / 0 / 0 Регистрация: 06.11.2014 Сообщений: 12
		1
	Определить в массиве сумму остатков от деления на 3 тех элементов, которые не кратны трём 06.11.2014, 19:35. Показов 1948. Ответов 1 Метки нет (Все метки) 3)Ввести одномерный массив A из 14 элементов. Определить в нём сумму остатков от деления на 3 тех элементов, которые не кратны трём. 0

	08.11.2014, 11:28

Опции темы

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

Решение