Найти произведение элементов массива, номера которых кратны трем

@Elagor · Регистрация: 15.11.2012

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

Задать случайным образом одномерный массив из 13 целочисленных элементов, принадлежащих отрезку [-11;11]. Найти произведение элементов массива, номера которых кратны трем. Закрасить указанные элементы.

@Pahanuch · 15.11.2012, 12:10

Pascal

Uses crt;
const N=13;
Var
i:integer;
pr:real;
A: array[1..N] of integer;
BEGIN
RANDOMIZE;
For i:=1 to N do
BEGIN
A[i]:=Random(22)-11;
Write(A[i],' ');
END;
WRITELN;
pr:=1;
For i:=1 to N do
BEGIN
if (i mod 3 = 0) then BEGIN
pr:=pr*A[i];
textcolor(12);
Write(A[i],' ');
END;
END;
textcolor(0);
WRITELN;
WRITELN('Произведение элементов ',pr);
END.

@Elagor · 15.11.2012, 13:02 **[ТС]**

Спасибо)

@Elagor 1 / 1 / 0 Регистрация: 15.11.2012 Сообщений: 36
		1
	Найти произведение элементов массива, номера которых кратны трем 15.11.2012, 11:38. Показов 1773. Ответов 2 Метки нет (Все метки) Задать случайным образом одномерный массив из 13 целочисленных элементов, принадлежащих отрезку [-11;11]. Найти произведение элементов массива, номера которых кратны трем. Закрасить указанные элементы. 1

@Elagor 1 / 1 / 0 Регистрация: 15.11.2012 Сообщений: 36
	15.11.2012, 13:02 [ТС]	3
	*Спасибо)* 0

Опции темы

Найти произведение элементов массива, номера которых кратны трем

Решение