Reikia pagalbos su paskaliu:)

Reikia, kad kas issprestu si paprasta uzdavinuka.. Reikia, kad veiktu paskalyje. (Daugiau nieko neklauskite - ne man cia reikia, bet uzsakovas - zmogeliukas - butu labai dekingas, jeigu kas issprestu)

Pridedu foto. :) (10tas pratimas)

Cia iskart 5 ir 8.

Pataisitas variantas.

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.

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

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

function maksimum(mas:sk):real;
   var i,max:integer;
   begin
       max:=1;
       for i:= 1 to size do
           if mas[i] > mas[max] then max:=i;
       maksimum:=mas[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.

Saunu, kad atsiranda tokiu zmoniu, kurie negaili savo laiko. Dedu + ir siunciu padekas is zmogaus. :)

yra tam programuptoju kampas o ne studijos ir mokslas, su telefonu rasau tad tik nupasakosiu: ivedi kintamuosius: sekunde, minute, valanda, gali ir kitaip pavadint, tada sekunde++; tada if(sekunde==60) sekunde=0; bei tam paciam ifˇe minute++; tada kitas if(minute==60) minute=0; ir tam paciam ife valanda++; ir parasai tada rezultata

Edit: atsirado netinginciu, ignoruokit ;D

6, 7 nepadesiu, kadangi nezinau matematikos. 9 uz kokiu 15 min padarisiu.

6, 7 nepadesiu, kadangi nezinau matematikos. 9 uz kokiu 15 min padarisiu.

Aciu labai tau, daugiau pratimu nebereikia. As su kitais klausimais del to 10 susisieksiu i PM. :)

9 uzd, nelabai gera, bet kazkaip galva jau neveikia ant vakaro.

var i,x,sum1,sum2: integer;
   mas: array [1..3] of integer;
   sandauga: boolean;

begin
 readln(x);
 sum1:=1;
 sum2:=0;
 sandauga:=true;
 for i:= 1 to 3 do
   begin
       mas[i]:= x mod 10;
       x:= x div 10;
       if (mas[i] <> 0) then  sum1:=sum1*mas[i]
       else sandauga:=false;
       sum2:=sum2+mas[i];
   end;
   if (sandauga = true) then writeln('sandauga: ', sum1)
   else writeln('suma: ', sum2);
 Readln;
end.

o del 10 nepagaunu, cia su systemtime zaist ar kaip?

Dešimtą galima spręsti su if'ais, arba susirašyt viską sekundėmis, pridėt vieną sekundę ir vėl viską grąžinti į valandas, minutes, sekundes:

t := (val*60 + min)*60 + sek + 1;
sek := t mod 60;
t := t div 60;
min := t mod 60;
t := t div 60;
val := t mod 24;

Netikrinau, bet pagal idėją, turėtų veikti.