1) const n = 10; var a : array [1..n] of integer; i : integer; begin randomize; for i := 1 to n do begin a[i] := 22 + random(114); if a[i] > 100 then writeln (a[i]); end; end.
2) var a,n,r,i : integer; begin r := 1; readln (a,n); for i := 1 to n do r := r * a; writeln (r); end.
3)
var n,i,r : integer; begin r := 1; readln (n); for i := 1 to n do r := r *i; writeln (r); end.
4) var i : integer; begin for i := 192 to 223 do write(chr(i); ,' '); end.
5) var i : integer; begin for i := 255 downto 240 do write (chr(i),' '); writeln(); for i := 239 downto 224 do write (chr(i),' '); end.
7) var i : integer; begin for i := 122 downto 97 do writeln(chr(i)); end.
Var a:array[1..5,1..7] of integer; i,j,kolpol,kolotr:integer; respol,resotr:real; begin for j:=1 to 7 do begin for i:=1 to 5 do begin a[i,j]:=random(-50,50); write(a[i,j]:4); end; writeln(); end; for i:=1 to 5 do begin respol:=0; resotr:=0; kolpol:=0; kolotr:=0; for j:=1 to 7 do begin if a[i,j]>0 then begin respol+=a[i,j]; kolpol+=1; end else if a[i,j]<0 then begin resotr+=a[i,j]; kolotr+=1; end; end; writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol); writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr); end; end.
Вот ответ на 7 задание