Програма має зчитувати з клавіатури в масив дійсні числа до тих пір, поки добуток чисел послідовності менше ніж 100. Після цього повинна видати на екран добуток чисел, що введені, максимальне та мінімальне число послідовності.
{Текст програми №2}
Program Proizv;
uses crt;
Var
A:array [1..100]of real;
I,k:integer;
proizvedenie,max,min:real;
Begin
clrscr;
Writeln('введите элементы массива');
Writeln('a[1]'); Readln(a[1]);
I:=1; Proizvedenie:=a[1];
repeat
I:=i+1;
Writeln('a[',I,']'); Readln(a[i]);
Proizvedenie:=proizvedenie*a[i];
until proizvedenie>100;
Min:=a[1]; Max:=a[1];
for k:=1 to i do
Begin
If a[k]<min then min:=a[k];
If a[k]>max then max:=a[k];
End;
Writeln('proizvedenie=',proizvedenie:6:2);
Writeln('min=',min:6:2);
Writeln('max=',max:6:2);
End.
Результат