Найти произведение количеств вхождений в массив чисел, кратных 2 и 3.

@sahsa · Регистрация: 11.12.2013

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

написать программу на языке Паскаль, которая решает такую задачу. Дано: одномерный массив, который состоит из 10 элементов целого типа. Найти: произведение количеств вхождений в массив чисел, кратных 2 и 3.

кто может помогите надо на завтра

@ildwine · 11.12.2013, 16:52

Pascal

var
  a : array [1..10] of integer;
  i, k2, k3, s : integer;
begin
  k2 := 0;
  k3 := 0;
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := random(20) - 10;
    write(a[i]:4);
    if a[i] mod 3 = 0 then inc(k3);
    if a[i] mod 2 = 0 then inc(k2)
  end;
  writeln;
  s := k2 * k3;
  writeln('кол-во вхождений чисел кратных 2: ', k2);
  writeln('кол-во вхождений чисел кратных 3: ', k3);
  writeln('произведение: ', s);
  readln
end.

@sahsa 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 3
		1
	Найти произведение количеств вхождений в массив чисел, кратных 2 и 3. 11.12.2013, 16:39. Показов 1190. Ответов 1 Метки нет (Все метки) написать программу на языке Паскаль, которая решает такую задачу. Дано: одномерный массив, который состоит из 10 элементов целого типа. Найти: произведение количеств вхождений в массив чисел, кратных 2 и 3. кто может помогите надо на завтра 0

	11.12.2013, 16:52

Найти произведение количеств вхождений в массив чисел, кратных 2 и 3.

Решение