Одномерный массив. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3.

@mila_sater · Регистрация: 22.11.2012

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

Задан одномерный массив из N элементов. Размерность массива и сам массив вводятся с клавиатуры. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3.

@!.Ap0$T0L.! · 23.11.2012, 18:52

Pascal

var s,i,n,k : integer;
   a:array[1..100] of integer;
begin
  k:=1;
  write('Ââåäèòå N : '); readln(n);
  write('Ââåäèòå ìàñèâ : ');
  for i :=1 to n do read(a[i]);
  for i :=1 to n do
  begin
   if (a[i] mod 5 = 0) then k:=k*a[i];
   if (a[i] mod 7 = 3) then inc(s);
  end;
  writeln(k,' ',s);
end.

@mila_sater 0 / 0 / 0 Регистрация: 22.11.2012 Сообщений: 6
		1
	Одномерный массив. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3. 23.11.2012, 18:11. Показов 6327. Ответов 1 Метки нет (Все метки) Задан одномерный массив из N элементов. Размерность массива и сам массив вводятся с клавиатуры. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3. 0

Опции темы

Одномерный массив. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3.

Решение