Лабораторна робота № 2

Програма має зчитувати з клавіатури в масив дійсні числа до тих пір, поки добуток чисел послідовності менше ніж 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.

Результат