Составьте программу, которая выводит символы с от 60 до 70

var

i: integer;

begin

for i: =60 to 70 do write (chr(i),' ');

readln;

end. 

Var n,m,s,a,i,j: integer; begin s: =0; j: =0; write('n = '); read(n); write('m = '); read(m); for i: = 1 to n do     begin     a: =random(2001)-1000;     write(a,' ');     if a mod m = 0 then           begin           s: =s+a;           j: =j+1;           end;     end; writeln; if j=0 then write('чисел, кратных ',m,' нет') else write('среднее арифметическое чисел, кратных ',m,' = ',s/j); end.

Консольное приложение: const n=9;   var l: array[1..n] of integer; i,max,imax,min,imin,s: integer;   begin randomize; writeln('массив l: '); for i: =1 to n do   begin   l[i]: =random(51);   write(l[i]: 4);   end; writeln; max: =l[1]; imax: =1; min: =l[1]; imin: =1; for i: =2 to n do   begin   if l[i]> max then begin max: =l[i]; imax: =i; end;   if l[i]< min then begin min: =l[i]; imin: =i; end;   end; writeln('max = l[',imax,'] = ',max); writeln('min = l[',imin,'] = ',min); s: =0; if imax> imin   then for i: =imin+1 to imax-1 do s: =s+l[i]   else for i: =imax+1 to imin-1 do s: =s+l[i]; writeln('s = ',s); end. пример: массив l:   31   49   41   15   9   47   37   11   27 max = l[2] = 49 min = l[5] = 9 s = 56