Pascalio masyvas

Laikančiam stojamuosius egzaminus moksleiviui, gavus iš egzamino neigiamą balą, kito egzamino laikyti neleidžiama. Masyve A [n] surašyti visų moksleivių, laikiusių pirmąjį egzaminą pažymiai. Nustatyti, keliems moksleiviams nebus leista laikyti antrojo egzamino.

Jūs turite dolerių ir norite pasikeisti į litus. Informacija apie N bankų pirkimo ir pardavimo kainas yra saugoma masyve A. parašyti programą kuri nustatytų kurį banką pasirinkti, kad būtų pelningiausia dolerius pakeisti į litus.

Thnks :lol:

Na pirmas lengvas pasirode. Nuskaitai i masyva pazymius ir tada su if - else suskaiciuoji kiek zmoniu yra virs islaikymo ribos. Source neparasysiu, bet principas toks :lol:

up, Leado pagalba nelabai pagelbėjo man, bet dėkui :D gal kas išsamiau?

Laikančiam stojamuosius egzaminus moksleiviui, gavus iš egzamino neigiamą balą, kito egzamino laikyti neleidžiama. Masyve A [n] surašyti visų moksleivių, laikiusių pirmąjį egzaminą pažymiai. Nustatyti, keliems moksleiviams nebus leista laikyti antrojo egzamino.

 

Jūs turite dolerių ir norite pasikeisti į litus. Informacija apie N bankų pirkimo ir pardavimo kainas yra saugoma masyve A. parašyti programą kuri nustatytų kurį banką pasirinkti, kad būtų pelningiausia dolerius pakeisti į litus.

 

Thnks :D

program pirmas;
type Mas = array [1..20] of integer; 
var masyvas : Mas;
     neleista, i : integer;

begin
{cia masyvo uzpildymas pazymiais, pats pasidarysi}
  i := 20; //moksleiviu kiekis
  neleista := 0;
  while(i <> 0) do
  begin
     if (masyvas[i] <= 4) then
     neleista := neleista +1;
    i := i - 1;
  end;
writeln('neleista laikyti', neleista);
readln;
end;

nepazadu, kad veiks, nes netikrinau :D bet minti manau pagavai :D