Question

Создать массив из 30 элементов, найти сумму и произведение элементов, минимальный и максимальный элемент массива, программу выполнить в Pascal ABC

Answer 1

Program P_1; {Создать массив из 30 элементов, найти сумму и произведение элементов, минимальный и максимальный элемент массива, программу выполнить в Pascal ABC}

Const n=30;

Var m: array[1..n] of real;

Var i,j: integer;

Var S,P:real;  

Var min,max: real;

begin

 writeln ('ввод массива m из ',n,' элементов:');

 for i:=1 to n do  

   read(m[i]);

 for j:=1 to n do

   begin

   write('m[',j,']='); writeln(m[j]);

 end;

 S:=0;

 for i:=1 to n do

   S:=S+m[i];

 writeln('Сумма всех элементов массива =',S);

 P:=1;

 for i:=1 to n do

   P:=P*m[i];

 writeln('Произведение всех элементов массива =',P);

 min := m [1];

 for i := 1 to n do  

 if m[i] < min then  

 min := m[i];

 writeln ('Минимальный элемент массива ', min);

 max := m [1];

 for i := 1 to n do  

 if m[i] > max then  

 max := m[i];

 writeln ('Макимальный элемент массива ', max);

end.