Цитата:
Сообщение от Лилька
Не знаю.
да у меня тоже самое практически, просто я не знаю как расписать "произведение последних К элементов массива"
в общем где if и т.д.
|
Код:
const
n=10;
k=3;
var
a:array[1..n] of integer;
i:integer;
P:LongInt;
begin
randomize;
for i:=1 to n do
begin
a[i]:=50-random(101);
write(a[i]:4);
end;
writeln;
writeln;
P:=1;
for i:=n-k+1 to n do
P:=P*a[i];
writeln('Product of last ',k,' elements is ',P);
readln;
end.