Составьте программу вычисления произведения последних четырех элементов одноме?
Составьте программу вычисления произведения последних четырех элементов одноме??ного массива A(N), заполнив его случайным образом
Гость
Ответ(ы) на вопрос:
Гость Вариант №1
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var n:=ReadInteger('Размер массива: ');
var a:=ArrRandom(n);
a.Println;
var p:=1;
for var i:=n-4 to n-1 do begin
p:=p*a[i];
end;
println(p);
end.
Тестовое решение:
Размер массива: 10
26 65 88 43 49 93 67 40 16 84
3601920
Вариант №2
const k = 100;
var a:array [1..k] of integer;
i,p,n:integer;
begin
p:=1;
readln(n);
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i]:4);
if i>n-4 then p:=p*a[i];
end;
writeln;
writeln(p);
end.
Тестовое решение:
10
-8 6 1 3 1 -10 -3 2 2 2
-24
Не нашли ответ?
Похожие вопросы