Вычислить значение выражения - Turbo Pascal (28974)

Формулировка задачи:

Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

Код к задаче: «Вычислить значение выражения - Turbo Pascal (28974)»

textual
uses crt;
const nmax=35;
type mas=array[1..nmax] of real;
procedure massiv(var a:mas;n:byte;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
end;
function min(a:mas;n:byte):real;
var i:byte;
    m:real;
begin
m:=a[1];
for i:=2 to n do
if a[i]<m then m:=a[i];
min:=m;
end;
var x,y:mas;
    z:real;
begin
clrscr;
randomize;
massiv(x,20,'X');
massiv(y,35,'Y');
z:=min(x,20)+min(y,35)/2;
writeln('Z=',z:0:2);
readln
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ