Умножить все элементы, кратные трем на третий элемент массива

@tej · Регистрация: 10.04.2012

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

Умножить все элементы, кратные трем на третий элемент массива. на ABC

@3a9Ic · 25.04.2012, 19:47

Pascal

Const n=5;
var a:array[1..n] of integer;
    i,p:integer;
begin
     for i:=1 to n do
     begin
          a[i]:=Random(10);
          write(' a[',i,']=',a[i]);
     end;
p:=1;
for i:=1 to n do
if (a[i] mod 3=0) then p:=a[i]*a[3];
writeln('');
writeln('Ïðîèçâåäåíèå=',p);
end.

@tej 2 / 2 / 0 Регистрация: 10.04.2012 Сообщений: 11
		1
	Умножить все элементы, кратные трем на третий элемент массива 25.04.2012, 16:43. Показов 2467. Ответов 1 Метки нет (Все метки) Умножить все элементы, кратные трем на третий элемент массива. на ABC 0

	25.04.2012, 19:47

Умножить все элементы, кратные трем на третий элемент массива

Решение