Question

Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием ,Pascal)

Answer 1

var
a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do
 read(a[i]);
i:=1;
s:=1;
while i<=10 do begin
s:=s*a[i];
inc(i);
end;
writeln(s);
end.

Answer 2

зачем массив то

Answer 3

да ей богу. там и без цикла то можно.

Answer 4

вон ниже написал так тип легче хотя почти тожесамое