Нужна в проверке дз, седьмое . скажите, я правильно сделала?

в вашей программе ввод последовательности заканчивается вводом числа -1, но в сказано, что ввод заканчивается нулём

нужно заменить until n=-1; на until n=0;

ещё чтобы ноль не считался как число, при вычислении среднего арифметического, нужно добавить после цикла w: =w-1;

Const nmax = 30; var a: array [1..nmax] of integer;           i,k,n: integer; begin   randomize;   k: =0;   repeat       write ('n = ');       readln (n);   until n in [1..nmax];   for i: =1 to n do       begin           a[i]: =random(101)-50;           writeln (a[i]);           if a[i] mod 5 = 0 then inc(k);       end;   writeln ('kol-vo: ',k); end.

#include < iostream> using namespace std; int main() {   float x,y,c;   cout < < "x = ";   cin > > x;   cout < < "y = ";   cin > > y;   if (x> y)   {       c = x;       x = y;       y = c;   }   cout < < "x = " < < x < < endl                   < < "y = " < < y < < endl;   return 0; }