Найдите количество элементов двумерного массива a[1..5, 1..5] равных 1. массив заполните случайными числами в диапазоне от -10 до 10. вывести массив на экран в виде таблицы и количество элементов равных 1.

Var a: array[1..5,1..5]of integer; i,j,k: integer; begin   for i: =1 to 5 do       begin         writeln;           for j: =1 to 5 do                 begin                   a[i,j]: =random(21)-10;                     write(a[i,j]: 4);                       if a[i,j]=1 then                         k: =k+1;                 end;       end; writeln; if k=0 then     writeln('нет =1') else       writeln(k); end.

Смотрим на этот фрагмент кода: day : = 1; m : = dat [1] нц для k от 2 до 10  если dat[k] > = m то    m : = dat[k]; day : = k  всекцчто происходит? сначала day = 1, m = dat[day]. затем в цикле для каждого k сравнивается dat[k] с m, и если dat[k] не меньше его, то в day записывается k, а в m - dat[k]. значит, после завершения цикла в переменной m будет записано максимальное из всех значений dat[i], а в day - номер дня, в который в последний раз был достигнут максимум.максимальное значение равно 7, в последний раз появилось в dat[9], поэтому day = 9. команда вывод day  выводит на экран значение переменной day, которое, как мы уже выяснили, равно 9.ответ. 9.

#include < iostream> using namespace std; int main() {     int k=0,s=0,n=1;       do {         cin> > n;           if (n! =0) {               k++;   s+=n;         }     }     while (n! =0);     cout< < "сумма: "< < s< < endl;     cout< < "количество чисел (без нуля): "< < k< < endl;       system("pause");     return(0); }