Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных элементов

@DenisRider · Регистрация: 13.03.2018

@Hitoku · 13.03.2018, 11:36

Pascal

const n = 10;
var a: array [1..n] of integer;
    i, p, count: integer;
begin
  randomize;
  count := 0;
  p := 1;
  for i := 1 to n do begin
    a[i] := -10 + random(21);
    write(a[i], ' ');
    if a[i] > 0 then p := p * i
    else if a[i] < 0 then inc(count);
  end;
  writeln('Произведение: ', p, '; Количество: ', count);
end.

@DenisRider · 13.03.2018, 23:17 **[ТС]**

Очень благодарен

@DenisRider 0 / 0 / 0 Регистрация: 13.03.2018 Сообщений: 21
		1
	Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных элементов 13.03.2018, 09:52. Показов 6871. Ответов 2 Метки нет (Все метки) Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных элементов 0

@DenisRider 0 / 0 / 0 Регистрация: 13.03.2018 Сообщений: 21
	13.03.2018, 23:17 [ТС]	3
	Очень благодарен 0

Опции темы

Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных элементов

Решение