Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 100 – учащихся выпускного класса за итоговый тест по информатике. для получения положительной оценки за тест требовалось набрать не менее 20 . опишите на паскале алгоритм, который позволяет найти и вывести минимальный среди учащихся, получивших за тест положительную оценку. известно, что в классе хотя бы один учащийся получил за тест положительную оценку. использовать другие переменные запрещается!

Uses crt; const n=30; var a: array [1..n] of integer;     i,x: integer; begin       x: =100;       for i: =1 to n do       begin           a[i]: =random(101);           writeln(i,' : ',a[i]);           if (a[i]> =20) and (a[i]< x) then x: =a[i];       end;       writeln;       writeln(' минимальный : ',x); end.

Program gt; label 1; var a: array[1..30]of integer; i,min: integer; begin randomize; min: =200; 1: for i: =1 to 30 do begin a[i]: =random(101); if(a[i]< min)and(a[i]> =20)then min: =a[i]; end; if(min< > 200)then begin for i: =1 to 30 do write(a[i],' '); writeln; writeln(min); exit; end; if(min=200)then goto 1; end.

#include < iostream> #include < cmath> using namespace std;   int main() {     double a;     double b;     double c;     double x;     cout < < "введите значение a: ";     cin > > a;     cout < < "введите значение b: ";     cin > > b;     cout < < "введите значение c: ";     cin > > c;     if((b*b - 4*a*c) > = 0) //если дискриминант больше или равен 0     {         x = ( -1*b + sqrt(b*b - 4*a*c) ) / (2 * a);         cout < < "первый корень равен " < < x < < endl;         x = ( -1*b - sqrt(b*b - 4*a*c) ) / (2 * a);         cout < < "второй корень равен " < < x < < endl;     }     else     {         cout < < "дискриминант меньше 0,  нет вещественных корней." < < endl;     }       return 0; }

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив [',8,',',7,'] ***');   var a: =matrrandom(8,7,-99,99);   a.println(4); writeln(4*a.colcount*'-');   for var i: =0 to a.rowcount-1 do begin       a.setrow(i,a.row(i).sorted.toarray)       end;   writeln('*** результирующий массив ***');   a.println(4)   end. пример *** исходный массив [8,7] ***   -45 -24  26  38 -83 -97  77   15 -68  80 -47    3 -61 -52   -71  70 -52  46  70  59 -15   -66 -20 -32  82  63    1  76   93 -99 -38  22  83 -36 -42   53  17 -19  -7  47  12 -58   53  21  40 -88 -89  65  80   -73 -16 -78 -62    3  18 -79 *** результирующий массив ***   -97 -83 -45 -24  26  38  77   -68 -61 -52 -47    3  15  80   -71 -52 -15  46  59  70  70   -66 -32 -20    1  63  76  82   -99 -42 -38 -36  22  83  93   -58 -19  -7  12  17  47  53   -89 -88  21  40  53  65  80   -79 -78 -73 -62 -16    3  18