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

@profile · Регистрация: 25.11.2011

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

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

@Zo_0m · 07.12.2011, 15:40

Pascal

const n=15;
var a:array[1..n] of integer;   i:integer;  k:longint;
begin
for i:=1 to n do
readln(a[i]);
k:=1;
for i:=1 to n do
if a[i] mod 3=0 then
k:=k*a[i];
writeln('proizv=',k);
end.

@валерий3200 · 07.12.2011, 15:50

Pascal

Program z1;
Var a: array[1..15] of real;
      i: integer;
      p: real;
begin
p:=1;
randomize;
for i:=1 to 15 do begin
a[i]:=random(100);
if (a[i] mod 3)=0 then p:=p*a[i];
end;
write(p);
end.

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

Решение

Решение

@profile 1 / 1 / 0 Регистрация: 25.11.2011 Сообщений: 40
		1
	В массиве из 15 чисел определить произведение элементов кратных трем 07.12.2011, 15:30. Показов 2567. Ответов 2 Метки нет (Все метки) в массиве из 15 чисел определить произведение элементов кратных трем 0

Опции темы