Вначале значение переменной х равно 3 а значение у равно5. как изменится х и у после выполнения программы: у=1; х=х+у; у=х; х=у;

x=3

y=5

 

y=1

x=3

 

x=1+3=4

y=1

 

y=4

x=1

Смотрим на этот фрагмент кода: 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.

Program dimamixali14; uses crt; const      n=10; var   s: string;   fly: text;   a: array [1..n,1..n] of integer;   i,j,k,summa: integer; begin   s: ='*** alphaeus is ***';   for i: =1 to length(s) do begin   write(s[i]);   for j: =1 to 500000 do s[i]: =s[i];   end;   writeln();   writeln('***           ok             ***');   writeln();   writeln(': ');   writeln('сформировать квадратную матрицу a(nxn), которую вывести. строки с отрицательным элементом на главной диагонали последовательно записать в файл. в конец файла дописать сумму первой и последней компонент, файл отпечатать.');   randomize;   assign(fly,'f.txt');   rewrite(fly); {заполняем и выводим матрицу}   writeln(); writeln('matrix: ');   for i: =1 to n do begin     for j: =1 to n do begin       a[i,j]: =random(101)-50;       write (a[i,j]: 3);     end;     writeln();   end;   writeln(); writeln(); {заполняем файл}   for i: =1 to n do begin     for j: =1 to n do begin       if(i=j) and (a[i,j]< 0) then         begin           for k: =1 to n do             write(fly,a[i,k]: 3);           writeln(fly, ' ');         end;     end;     end;   writeln();   writeln('file: ');   summa: =a[1,1]+a[n,n];   writeln(fly,'summa = ',summa);   s: =''; {выводим файл}   reset(fly);   while not eof (fly) do   begin     readln (fly, s);     writeln(s);   end;   close(fly); end.