Составление программ с использованием функций при обработке одномерных массивов

[bittspower]

Найти отношение между максимальным и минимальным значениями элементов массива.
a[i]=2.9(i-1.5)-3.1i
s[k]=11.7(k-3.1)-8.1k
b[j]-4.7(j+2.2)-5.6j
a[10], s[12], b[30]

[СтудПом]

Начните с цикла прохода по массиву. А дальше уже легко будет.

[newerow1989]

var a:array[1..10] of real;
    s:array[1..12] of real;
    b:array[1..30] of real;
    i:integer;
    min,max:real;
begin
   For i:=1 to 10 do
      a[i]:=2.9*(i-1.5)-3.1*i;
   For i:=1 to 12 do
      s[i]:=11.7*(i-3.1)-8.1*i;
   For i:=1 to 30 do
      b[i]:=4.7*(i+2.2)-5.6*i;
   min:=a[1];
   max:=min;
   For i:=2 to 10 do
   begin
      If min>a[i] then
         min:=a[i];
      If max<a[i] then
         max:=a[i];
   end;
   Writeln(max/min:5:8);
   min:=s[1];
   max:=min;
   For i:=2 to 12 do
   begin
      If min>s[i] then
         min:=s[i];
      If max<s[i] then
         max:=s[i];
   end;
   Writeln(max/min:5:8);
   min:=b[1];
   max:=min;
   For i:=2 to 30 do
   begin
      If min>b[i] then
         min:=b[i];
      If max<b[i] then
         max:=b[i];
   end;
   Writeln(max/min:5:8);
   Readln;
end.