Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших А

@YOYON · Регистрация: 05.11.2014

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

Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты.

Задание:

Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших заданного А.

@ZX Spectrum-128 · 06.11.2014, 09:43

неизвестных чисел

А это как?

Pascal

const
  n=5;
var
  arr :array[1..n] of integer;
  i,a,k,p :integer;
begin
  p:=1; k:=0;
  writeln('Введите a: ');
  readln(a);
  writeln('Введите элементы массива');
  for i:=1 to n do
    begin
      readln(arr[i]);
      if arr[i] < a then
        k:=k+1;
      if i mod 4=0 then
        p:=p*arr[i];
    end;
  writeln('Произведение: ',p);
  writeln('Количество: ',k);
  readln;
end.

@YOYON 0 / 0 / 0 Регистрация: 05.11.2014 Сообщений: 10
		1
	Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших А 05.11.2014, 17:53. Показов 3139. Ответов 1 Метки нет (Все метки) Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты. Задание: Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших заданного А. 0

Опции темы

Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших А

Решение