Question

С клавиатуры вводятся оценки за экзамены одного студента. Количество экзаменов = N (N не больше 10). Вывести количество пятерок и количество двоек.
Pascal.

Answer 1

Представлю 3 программы два с массивом и один без массива

1)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

 end;

  for i:=1 to n do  begin

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

2)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

3)var a,i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

if n<=10 then begin

 for i:=1 to n do  begin

     writeln('введите оценку за экзамен');

   readln(a);

    if a=5 then k5:=k5+1;

    if a=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end;

 end.