Подсчитать произведение положительных элементов массива, кратных 3, стоящих на нечетных местах

@Михаил Шах · Регистрация: 04.07.2013

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

3. В одномерном числовом массиве размерности n подсчитать произведение положительных элементов, кратных 3, стоящих на нечетных местах

@sobakabobik · 05.07.2013, 04:42

Pascal

uses crt;
 
var
  i, n: word;
  sum: integer;
  m: array [1..30] of smallint;
 
begin
  sum := 1;
  write('Размерность массива (<=30): ');
  readln(n);
  writeln('Массив:');
  randomize;
  for i := 1 to n do
  begin
    m[i] := round(random(30) - 15);
    write(m[i], ' ');
    if (i mod 2 <> 0) and (m[i] > 0) and (m[i] mod 3 = 0) then sum := sum * m[i]
  end;
  writeln;
  writeln('Произведение положительных элементов, кратных 3, стоящих на нечетных местах = ', sum);
  readln;
end.

@Михаил Шах 0 / 0 / 0 Регистрация: 04.07.2013 Сообщений: 10
		1
	Подсчитать произведение положительных элементов массива, кратных 3, стоящих на нечетных местах 04.07.2013, 19:12. Показов 2418. Ответов 1 Метки нет (Все метки) 3. В одномерном числовом массиве размерности n подсчитать произведение положительных элементов, кратных 3, стоящих на нечетных местах 0

	05.07.2013, 04:42

Подсчитать произведение положительных элементов массива, кратных 3, стоящих на нечетных местах

Решение