работа с одномерными массивами

[ЭдикNEO]

Даны числа а1, а2, …, а6. Определить их произведение

[Mad_Cat]

p:=1;
for i:=1 to 6 do
p:=p*a[i];

[ЭдикNEO]

program Zadanie;
uses crt;
var a:array [1..6] of integer;
var s:integer;
var i,n:byte;
begin
clrscr;
s:=1;
for i:=1 to 6 do
begin
write ('Vvedite a[',i,']');
readln (a[i]);
end;
for i:=1 to 6 do
s:=s*a[i];
writeln ('Otvet ',s);
readkey;
end.

посмотри правильно?

[Mad_Cat]

var s:integer;

заменить на

var s:real;

а так не короче7

for i:=1 to 6 do
begin
write ('Vvedite a[',i,']');
readln (a[i]);
s:=s*a[i];
end;

[ЭдикNEO]

все спасибо)сделал