В среде программирования ABCPascal набери текст программы для решения задачи: 20 учащихся писали диктант по русскому языку. Составить программу, подсчитывающую количество оценок «4» и «5». hello_html_m66a1969c. png

Измени программу так, чтобы она обрабатывала оценки 5 учеников.

Замени ввод данных с цикла на ввод с оператора присваивания (n[1]:=5, n[2]:=2 и т. д).

Измени вывод массива на вывод с комментариями (см. учебник. с. 66)

в этом варианте представлен алгоритм без обратной связи, так как алгоритм представляет собой только однозначную последовательность команд. 

такой алгоритм является линейным, или последовательным. то есть в нём отсутствует   процесс передачи информации о состоянии объекта к объекту.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

я попробывала у меня получилось имя даша

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.