Вычислить количество элементов массива, равных заданному числу, и произведение элементов массива с чётными номерами

@Вик-ТориЯ · Регистрация: 01.03.2019

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

а). Вычислить количество элементов массива А(20) равных заданному числу Х.
б). Вычислить произведение элементов массива А(20), с чётными номерами.

@Cyborg Drone · 04.03.2019, 11:16

Pascal

var
  a: array[1..m] of integer;
  i, x, k, p: integer;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      a[i] := -99 + random(199);
      write(a[i]:4)
    end;
  writeln;
  write('x = ');
  readln(x);
  k := 0;
  p := 1;
  for i := 1 to m do
    begin
      if a[i] = x then inc(k);
      if not odd(i) then p := p * a[i]
    end;
  write('k = ', k, '  p = ', p);
  readln
end.

@Вик-ТориЯ 0 / 0 / 0 Регистрация: 01.03.2019 Сообщений: 4
		1
	Вычислить количество элементов массива, равных заданному числу, и произведение элементов массива с чётными номерами 04.03.2019, 09:16. Показов 2194. Ответов 1 Метки нет (Все метки) а). Вычислить количество элементов массива А(20) равных заданному числу Х. б). Вычислить произведение элементов массива А(20), с чётными номерами. 0

	04.03.2019, 11:16

Опции темы