Ответы на вопрос:
Uses crt; label bbixod, bbodn; var a: array[1..19,1..19] of shortint; i,j,n,t: integer; begin randomize; bbodn: write('n = '); readln(n); clrscr; if (n < = 0)or(n > 19) then goto bbodn; t: = 700 div n; for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln; end; delay(300); for i: = n downto 1 do begin for j: = n downto 1 do begin if (j < n) then begin gotoxy(j*4+1,i); textbackground(0); write(a[i,j+1]: 3,' '); gotoxy(1,n+1); end; textbackground(2); gotoxy(j*4-3,i); write(a[i,j]: 3,' '); delay(t); if a[i,j] mod 2 = 0 then begin delay(700); if i < > j then begin textbackground(12); gotoxy(j*4-3,i); write(a[i,j]: 3,' '); delay(700); textbackground(14); gotoxy(i*4-3,i); write(a[i,i]: 3,' '); delay(700); t: =a[i,j]; a[i,j]: =a[i,i]; a[i,i]: =t; textbackground(14); gotoxy(j*4-3,i); write(a[i,j]: 3,' '); textbackground(12); gotoxy(i*4-3,i); write(a[i,i]: 3,' '); delay(700); textbackground(0); gotoxy(j*4-3,i); write(a[i,j]: 3,' '); textbackground(2); gotoxy(i*4-3,i); write(a[i,i]: 3,' '); end; t: =-1; goto bbixod; end end; gotoxy(1,i); textbackground(0); write(a[i,j]: 3,' ') end; bbixod: textbackground(0); gotoxy(1,n+1); if t > = 0 then writeln('чётных элементов не обнаружено'); writeln('для повторного ввода n нажмите 0'); writeln('для выхода - любую другую клавишу'); if readkey = '0' then begin clrscr; goto bbodn; end end.
Популярно: Информатика
-
arina12121207.08.2022 03:24
-
stas7365w9813.07.2020 04:48
-
auutumn128.11.2020 13:06
-
breakfast106.11.2022 15:50
-
LolKek00630.10.2022 22:27
-
Милошка2807.05.2020 04:23
-
Максуд2286182708.10.2022 21:57
-
haex18.04.2021 16:28
-
gfeee112.12.2021 05:13
-
dan5259oxnhwz09.03.2020 05:11