Изменить условие в решении, Помогите!!Умоляю!! Опции

[Studentka]

Вот задачка: учитель объявил результаты контрольной работы. Определите процентное содержание выставленных им пятерок,четверок,троек и двоек.
В готовой программе на экран выводится общий ряд оценок и их процентное соотношение.Решение сделано так,что выводятся и колы.Как их можно убрать,что изменить в решении?
Помогите плиз!Экзамен на носу!

{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
const N = 20;
      {A : array [1..20] of Integer=(4,2,3,4,5,4,2,4,4,3,5,3,2,5,3,2,3,5,3,5);}
var A : Array[1..N] of Integer;
    B : Array[1..5] of Integer;
    C : Array[1..5] of Real;
    I : Integer;
    K : Real;
begin
  Randomize;
  K:=100/N;
  for i:=1 to N do begin
    A[i]:=Random(5)+1;
    write(A[i],',');
  end;
  writeln;

  for i:=2 to 5 do begin
    B[i]:=0;
  end;
  
  for i:=2 to N do begin
    B[A[i]]:=B[A[I]]+1;
  end;
  
  for i:=2 to 5 do begin
    C[i]:=B[i]*K;
    writeln(i,':',C[i]: 2: 2);
  end;
readln;
end.

М

Тэги!!

Сообщение отредактировано: Lapp - 10.06.2009 9:19

[Ozzя]

const N = 20;
var A : Array[1..N] of Integer;
    B : Array[1..5] of Integer;
    C : Array[1..5] of Real;
    I : Integer;
    K : Real;
begin
  Randomize;
  K:=100/N;
  for i:=1 to N do begin
    A[i]:=Random(4)+2;
    write(A[i],',');
  end;
  writeln;

  for i:=1 to 5 do begin
    B[i]:=0;
  end;

  for i:=1 to N do begin
    B[A[i]]:=B[A[I]]+1;
  end;

  for i:=2 to 5 do begin
    C[i]:=B[i]*K;
    writeln(i,':',C[i]: 2: 2);
  end;
readln;
end.