Составить блок-схемы для нахождения y=x2, для х=2, 4, 6, 8, 10.

Блок-схема во

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

//прога на pascal`е {не работает на   pascalabc.net, т.к. оный использует 2-байтную кодировку unicode, а не 1-байтную кодировку ascii, как более ранние версии pascal`ей} const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do begin ch[i]: =num; inc (num); end; writeln ('символ   |   код ascii'); writeln (''); for i: =1 to n do writeln ('   ', chr(ch[i]), '     |     ', ch[i]); end. {версия для pascalabc.net} //прога на pascal`е const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do  begin ch[i]: =num; inc (num); end; writeln ('символ   |   код ascii'); writeln (''); for i: =1 to n do writeln ('   ', chr(ch[i]+848), '     |     ', ch[i]); end.