Pascalio uzdavinys.

Uzduotis tokia: Duota n skaiciu seka ir reikia rasti kiek skaiciu sekoje yra skaiciu tarp maziausio ir didziausio elemento sk. Naudojant funkcija rasti kiek sekoje yra pirminiu skaiciu.

Esme suprantu, bet neina iki galo igivendinti.. Tarkim jeigu skaidyciau uzduoti: rasti min, maks ir 3 veiksmu randu kiek skaiciu sekoje yra skaiciu?

procedure MasMin (n : integer; M : array[1..n] of real;

var min : real);

var i : integer;

begin

min := M[1];

for i:=2 to n do

if min > M[1];

then begin

min := M;

end;

end;

procedure MasMax (n : integer; M : array[1..n] of real:

var max : real);

var i : integer;

begin

max := M[1];

for i := 2 to n do

if max > mM[1];

then begin

max := M;

end;

end;

Truputi bandziau pasirasyti... Buciau dekngas, jeigu kas padetu uzbaigti uzdavini ar patartu kaip geriau padaryti. Aciu :)

O jeigu maziausias arba didziausias kartojasi?

program Noname2;
const size = 4;
type sk = array [1..size] of real;
var
   i: integer;
   mas : sk;

function minimum(mas:sk):real;
   var
       i:integer;
       min: real;
   begin
       min:=mas[1];
       for i:= 1 to size do
           if mas[i] < min then min:=mas[i];
       minimum:=min;
   end;

function maksimum(mas:sk):real;
   var
       i:integer;
       max: real;
   begin
       max:=mas[1];
       for i:= 1 to size do
           if mas[i] > max then max:=mas[i];
       maksimum:=max;
   end;

begin
 for i:= 1 to size do
   readln(mas[i]);
 WriteLN('Minimumas: ', minimum(mas):2:2);
 WriteLN('Maksimumas: ', maksimum(mas):2:2);
 Readln;
end.

Stai maksimumas ir minimumas. Is esmes tau reikia rasti pirmojo minimumo ir paskutiniojo maksimumo indeksus.

Turi gautis kazkas panasaus

for i:= 1 to size do
           if mas[i] < min then 
                   if(mas[i] <> min) then
                       min:=i;

o poto

for i:= min to max do
write(mas[i]);

Tai ir laukiu pagalbos, kaip deramai reiktu viska iforminti :)

pakeiciau biski topika, bet dabar po ranka neturiu pascalio, o jungtis i windowsa ner laiko. Jai nekas nepades, kokia 21 padarisiu.