Інформатика. Можно і без пояснень

Question

Информатика: Інформатика. Можно і без пояснень

умник1594 · Accepted Answer

Вариант №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

MOGZ ответил