Для массива найти произведение элементов, значения которых не лежат в пределах [2; 8]

@corpse613 · Регистрация: 24.11.2011

написать программу на языке delphi (pascal)

Для массива с1,с2...с30 найти произведение элементов, значения которых не лежат в пределах [2;8]

@Leoleshucov008 · 24.11.2011, 15:12

Delphi

const n=30;
var mult,i:integer;
c:array[1..n] of integer;
begin
mult:=1;
for i to n do begin
 if (c[i]<2) or (c[i]>8) then
  mult:=mult*c[i];
end;
writeln(mult);
readkey;
end.

@corpse613 · 24.11.2011, 15:44 **[ТС]**

выдает ошибку после to =(

@Selot · 24.11.2011, 15:54

Сообщение от corpse613

выдает ошибку после to =(

Delphi

1	for i:=1 to n do begin

@corpse613 2 / 2 / 1 Регистрация: 24.11.2011 Сообщений: 11
		1
	Для массива найти произведение элементов, значения которых не лежат в пределах [2; 8] 24.11.2011, 14:56. Просмотров 1262. Ответов 3 Метки нет (Все метки) написать программу на языке delphi (pascal) Для массива с1,с2...с30 найти произведение элементов, значения которых не лежат в пределах [2;8] 0

@corpse613 2 / 2 / 1 Регистрация: 24.11.2011 Сообщений: 11
	24.11.2011, 15:44 [ТС]	3
	выдает ошибку после to =( 0

Опции темы

Для массива найти произведение элементов, значения которых не лежат в пределах [2; 8]

Решение