Практическая работа . Работа с электронной почтой письменно нужно выполнить задания из учебника

Программа:

program test;

Uses Math;

const

 N = 5;

 

var

 A : array [1..N] of integer; {Массив элементов}

 i : integer;     {Счетчик цикла}

 P : Int64;      {Произведение элементов}

 mn : integer;     {Минимальный элемент массива}

 C : integer;     {Количество положительных элементов}

begin

P := 1;

C := 0;

for i := 1 to N do begin

 {Вводим очередной элемент массива}

 Read( A[i] );

 

 {Вычисляем произведение}

 P := P * A[i];

 

 {Положительные элементы подсчитываем}

 if A[i] > 0 then C := C + 1;

end;

{Находим минимальный }

mn := A[1];

for i := 2 to N do

 mn := min( mn, A[i] );

WriteLn('Произведение - ', P);

WriteLn('Количество положительных - ', C);

WriteLn('Минимальный элемент - ', mn);

end.

Результат выполнения программы:

Uses graphABC;beginsetpenwidth(3);setwindowsize(600,700);ellipse(120,350,280,480);circle(200,300,60);circle(200,210,40);line(170,90,230,90);line(160,180,240,180);line(170,90,160,180);line(230,90,240,180);floodfill(200,173,clblack);floodfill(200,123,clblack); setbrushcolor(clblack);circle(190,200,5);circle(210,200,5);line(200,210,220,220);line(200,220,220,220);line(200,210,200,220);floodfill(204,214,clblack);setpenwidth(5);arc(200,230,10,180,0);line(70,320,170,250);line(230,250,330,300);line(300,450,350,200);
line(350,200,320,140);line(350,200,340,140);line(350,200,360,140);line(350,200,380,140);line(350,200,400,140);end.