Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- a
- program ocenkiNaUcenici;
- var brojNaUcenici : integer;
- var ocenki : array[1..20, 1..13] of integer;
- var i,j: integer;
- begin
- writeln('Vnesi go brojot na ucenici');
- readln(brojNaUcenici);
- for i:=1 to brojNaUcenici do
- begin
- writeln('Vnesi gi ocenkite na ucenik ',i);
- for j:=1 to 3 do
- begin
- readln(ocenki[i][j]);
- end;
- end;
- for i:=1 to brojNaUcenici do
- begin
- writeln('Ocenki na ucenik ',i,' se:');
- for j:=1 to 3 do
- begin
- case ocenki[i][j] of
- 1:writeln('Nedovolen 1');
- 2:writeln('Dovolen 2');
- 3:writeln('Dobar 3');
- 4:writeln('Mnogu Dobar 4');
- 5:writeln('Odlicen 5');
- else writeln('Nevalidna ocenka');
- end;
- end;
- writeln();
- end;
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement