Advertisement
Guest User

Untitled

a guest
Nov 19th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.90 KB | None | 0 0
  1. a
  2. program ocenkiNaUcenici;
  3. var brojNaUcenici : integer;
  4. var ocenki : array[1..20, 1..13] of integer;
  5. var i,j: integer;
  6. begin
  7.     writeln('Vnesi go brojot na ucenici');
  8.     readln(brojNaUcenici);
  9.     for i:=1 to brojNaUcenici do
  10.     begin
  11.         writeln('Vnesi gi ocenkite na ucenik ',i);
  12.         for j:=1 to 3 do
  13.         begin
  14.             readln(ocenki[i][j]);
  15.         end;
  16.     end;
  17.     for i:=1 to brojNaUcenici do
  18.     begin
  19.         writeln('Ocenki na ucenik ',i,' se:');
  20.         for j:=1 to 3 do
  21.         begin
  22.             case ocenki[i][j] of
  23.                  1:writeln('Nedovolen 1');
  24.                  2:writeln('Dovolen 2');
  25.                  3:writeln('Dobar 3');
  26.                  4:writeln('Mnogu Dobar 4');
  27.                  5:writeln('Odlicen 5');
  28.                  else writeln('Nevalidna ocenka');
  29.            end;
  30.         end;
  31.         writeln();
  32.     end;
  33.     readln();
  34. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement