Составьте программу вычисления произведения последних четырех элементов одномерного массива A(N), заполнив его случайным образом
Составьте программу вычисления произведения последних четырех элементов одномерного массива 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
Не нашли ответ?
Похожие вопросы