Оценки от контролни

Публикувано на 21 март, понеделник от Данаил

10 ученици направили контролно. Учителят им е съобщил резултатите. Да се напише програма, която позволява да се въведат оценките им и отпечатва:

  1. броят на отличните оценки
  2. има ли двойки сред оценките
  3. най-ниската оценка
  4. средния успех на класа
Публикувано в 9а с етикети . Постоянна връзка.

4 коментара по Оценки от контролни

  1. Боряна каза:
    21 март, понеделник в 16:37 
    program ocenki_Alya_Bori;
var
  ocenka, i, br, min: integer;
  ima: boolean;
  sr: real;
begin
  br:=0;
  ima:=false;
  sr:=0;
  Write('Vavedi 1 ocenka:');
    ReadLn(ocenka);
    if ocenka=6 then
       br:=br+1;
    if ocenka=2 then
       ima:=true;
   min:=ocenka;
   sr:=sr+ocenka;

   for i:=2 to 10 do begin
    Write('Vavedi ', i, ' ocenka:');
    ReadLn(ocenka);
    if ocenka=6 then
       br:=br+1;
    if ocenka=2 then
       ima:=true;
    if (ocenka<min) then
       min:=min;
    sr:=sr+ocenka;
  end;
  sr:=sr/10;
  WriteLn('Broiat na 6-icite e ', br);
  if ima then WriteLn('Ima i dvoiki.');
  WriteLn('Nai-niskata ocenka e ', min);
  WriteLn('Srednia uspeh e ', sr:4:2);
  ReadLn;
end.
  2. svetlieti каза:
    24 март, четвъртък в 14:14 
    program project1;
var
  i, broiotlichniocenki, min, ocenki,suma: integer;
  dvoiki: boolean;
  sredenuspeh:real;
begin
  Writeln('Vavedi ocenkite');
  broiotlichniocenki:=0;
  suma:=0;
  dvoiki:=false;
  min:=6;
  for i:= 1 to 10 do
    begin
      Readln(ocenki);
      if ocenki=6 then
         broiotlichniocenki:=broiotlichniocenki+1;
      if ocenki=2 then
         dvoiki:=true;
      if ocenki<min then
         min:=ocenki;
      suma:=suma+ocenki;
    end;
  sredenuspeh:=suma/10;
  Writeln('Broqt na otlichnite ocenki e: ',broiotlichniocenki);
  Writeln('Dvoiki ima li: ',dvoiki);
  Writeln('Nai-niskata ocenka e: ',min);
  Writeln('Sredniq uspeh e: ',sredenuspeh:5:2);
  Readln;

end.

Вашият коментар