Padekite parasyt programa 11 klase Masyvas

13. Pirkėjas, priėjęs prie kasos su aštuoniomis prekėmis krepšelyje, apsigalvojo ir nusprendė nepirkti tų, kurių kaina viršija 50 Lt. Parašykite programą, nustatančią, kiek kainuoja nupirktosios prekės. Pradiniai duomenys - klaviatūra įvedamos 8 prekių kainos litais.

14. Skaičių sekos pabaigos požymis yra 0. Apskaičiuokite skaičių, kurie yra didesni už duotą skaičių M, sumą ir kiekį.

Va 2 uzdaviniai kaip juos reikia sprest su pascaliu? :) Gal galetumet kas padet ? :)

13. Pirkėjas, priėjęs prie kasos su aštuoniomis prekėmis krepšelyje, apsigalvojo ir nusprendė nepirkti tų, kurių kaina viršija 50 Lt. Parašykite programą, nustatančią, kiek kainuoja nupirktosios prekės. Pradiniai duomenys - klaviatūra įvedamos 8 prekių kainos litais.

program programa;

var i:integer;
   Pk, sumPk:real;
Begin
sumPk := 0.00;
for i:=1 to 8 do
   begin
   readln(Pk);
   if (Pk < 50.00) then sumPk += Pk;
   end;
writeln('suma: ', sumPk:4:2, 'lt');
readln;
End.

14. Skaičių sekos pabaigos požymis yra 0. Apskaičiuokite skaičių, kurie yra didesni už duotą skaičių M, sumą ir kiekį.

program programa;
const
   M:integer = 10;

var i,
   sk, sum, k:integer;
Begin
sum:=0; k:=0;
while (true) do
   begin
   readln(sk);
   if (sk <> 0) then
       if (sk > M) then
           begin
           sum += sk;
           k += 1;
           end;

   else break;
   end;
writeln('suma ', sum);
writeln('kiekis ', k);
readln;
End.

program programa;

var i:integer;
   Pk, sumPk:real;
Begin
sumPk := 0.00;
for i:=1 to 8 do
   begin
   readln(Pk);
   if (Pk < 50.00) then sumPk += Pk;
   end;
writeln('suma: ', sumPk:4:2, 'lt');
readln;
End.

 

program programa;
const
   M:integer = 10;

var i,
   sk, sum, k:integer;
Begin
sum:=0; k:=0;
while (true) do
   begin
   readln(sk);
   if (sk <> 0) then
       if (sk > M) then
           begin
           sum += sk;
           k += 1;
           end;

   else break;
   end;
writeln('suma ', sum);
writeln('kiekis ', k);
readln;
End.

Labai Aciuuu :) O ka reikia else break?

šiuo atvėju tai break užbaigia while ciklą, nes kitaip niekada programa nesustotų

Labai Aciuuu :) O ka reikia else break?

Jei ten norėjai parašyt "reiškia", tai break nutraukia ciklą.