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

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

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

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

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