Вклассе 20 учеников писали диктант по .написать программу подсчета кол-ва 2 3 4 5 получивших за диктант(писать через массива)

var

  a: array [1..20] of 2..5;   //массив оценок учеников

  i: integer;

  n: array [2..5] of 2..5;   //массив счетчиков оценок

 

begin

  for i: = 2 to 5 do   //обнуляем счетчики оценок

    n[i]: = 0;

  for i: = 1 to 20 do   //вводим оценки учеников и считаем их

  begin

    writeln('введите оценку ', i, '  ученика');

    readln(a[i]);

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

    if a[i] = 3 then n[3]: = n[3] + 1;

    if a[i] = 4 then n[4]: = n[4] + 1;

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

  end;

  for i: = 2 to 5 do

    writeln('количество получивших ', i, ' за диктант равно:   ', n[i]);   {выводим значения счетчиков}

end.

   

for

примеры

(pascal)

for i : = 1 to 10 do

  s: =s+1;

 

(c#,c++)

for (int i=0; i< 10; i++) {

    s+=i;

}

 

(ruby)

for i in 1..10

  s=s+i

end

 

(vb, vba,

for i = 1 to 10

  s=s+i

next i

 

по умлчанию шагом счетчика является 1. обычно шаг счетчика можно менять фразой by или step by. хотя увы такое есть не во всех языках

 

(c#,c++)

for (int i=0; i< 10; i=i+2) {

    s+=i;

}

 

(vb, vba,

for i = 1 to 10 step by 2

  s=s+i

next i

 

например в паскале возможен только обратный отсчет

for i : = 10 downto 1 do

  s: =s+1;

 

еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. правда не знаю ли под это правило языки из группы с

program symma;

  var a,b;

begin

  writeln('введите a'); readln (a);

    writeln('введите b'); readln (b);

  writeln(a+b);

  readln; {задержка, чтобы не убегала с экрана}

end.

 

можно взять еще одну переменную "с".

 

program symma1;

  var a,b,c;

begin

  writeln('введите a'); readln (a);

    writeln('введите b'); readln (b);

    c: =a+b;

  writeln(c);

  readln; {задержка, чтобы не убегала с экрана}

end.

 

 

удачи!