Массивы: Найти произведение положительных элементов, значение которых меньше 10

@Андреич Серёг · Регистрация: 18.11.2012

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

@CodeR · 19.11.2012, 09:25

Pascal

Const n=20;
Var A:array[1..n] of integer;
    i,pr:longint;
Begin
    pr:=1;
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
      if A[i]<10 then pr:=pr*A[i];
    End;
    writeln('Произведение: ',pr);
    write('Индексы: ');
    For i:=1 to n do
     if A[i] mod 3 = 0 then write(i:3);
    readln;
End.

@Андреич Серёг 1 / 1 / 0 Регистрация: 18.11.2012 Сообщений: 32
		1
	Массивы: Найти произведение положительных элементов, значение которых меньше 10 19.11.2012, 06:34. Показов 2337. Ответов 1 Метки нет (Все метки) Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Найти: - произведение положительных элементов, значение которых меньше 10; - вывести индексы тех элементов, значения которых кратны 3. 0

Опции темы

Массивы: Найти произведение положительных элементов, значение которых меньше 10

Решение