Наблюдать это: смотреть, слушать, зарисовать, запоминать, записывать-что правильно?

Смотреть, слушать, запоминать

Смотреть, конечно же

Uses crt; var n,i,j,l,sum,min: integer; a: array[1..20,1..20]of integer; begin clrscr; write('n='); readln(n); randomize; writeln('ishodnaja matrica: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; for l: =1 to 2*n-1  do begin sum: =0; if l< =n then begin for i: =1 to l do for j: =1 to l do if j=l-i+1 then sum: =sum+a[i,j]; if sum< min then min: =sum; end else if l> n then begin for i: =l-n+1 to n do for j: =l-n+1 to n do if j=l-i+1 then sum: =sum+a[i,j]; if sum< min then min: =sum; end; writeln('summa diagonali ',l,' = ',sum); end; writeln; readln end .

1) var a,q: integer; begin a: =1; while a< > 0 do begin read(a); if a< 0 then inc(q); end; writeln('количество отрицательный чисел: ',q); end. 2) var d,m,g,h,min: integer; begin d: =random(31)+1; m: =random(12)+1; g: =random(11)+2000; h: =random(24); min: =random(60); writeln( d,'/',m,'/',g,' ',h,': ',min); end.3)var a: array[1..10] of integer; n,i: integer; beginfor i: =1 to 10 doa[i]: =random(6)+2; read(n); for i: =1 to 10 do writeln(a[i]); for i: =9 downto n doa[i+1]: =a[i]; a[n]: =0; for i: =1 to 10 dowriteln(a[i]); end;