evgen4ik98
Uses crt;//Модуль, позволяющий запускать программу в окне const n=10;// Размерность var k:real; i:integer; a: array [1..n] of integer;//Описание массива begin for i:=1 to n do //Заполнение массива begin writeln('a[',i,']='); readln(a[i]); end; k:=a[1]*a[2]*a[3]*a[n]*a[n-1]*a[n-2]; // операция writeln('K=',k);// Вывод результата end.
Answers & Comments
const n=10;// Размерность
var
k:real;
i:integer;
a: array [1..n] of integer;//Описание массива
begin
for i:=1 to n do //Заполнение массива
begin
writeln('a[',i,']='); readln(a[i]);
end;
k:=a[1]*a[2]*a[3]*a[n]*a[n-1]*a[n-2]; // операция
writeln('K=',k);// Вывод результата
end.