1. составьте программу вычисления в массиве а (10), заполненном случайными числами из интервала [-1, 6], суммы всех элементов массива. 2. дана фраза. определить, сколько в ней предложений.

1) var a: array[1..10] of integer; s: integer; i: byte; begin randomize; s: =0; for i: =1 to 10 do begin a[i]: =random(7)-1; writeln ('a[',i,']=',a[i]); s: =s+a[i]; end; writeln ('сумма элементов=',s); end.

// pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! procedure dimdimoch(x: real; n: integer; var r: real); begin   r: =n*sqr(sqr((x+3**x*n+2*n end; begin   var x: real;   var n: integer;   write('введите x и n: '); read(x,n);   var r: real;   dimdimoch(x,n,r);   writeln('значение функции ',r) end. пример введите x и n: -1.23 4 значение функции 2410.83920384 begin   writeln('введите 6 пар целых чисел');   var k: =0;   loop 6 do begin       var (a,b): =readinteger2;       if (a+b).iseven then k+=1       end;   writeln('число пар с четной суммой: ',k) end. пример введите 6 пар целых чисел 15 23 19 -7 5 0 4 11 132 63 444 12 число пар с четной суммой: 3

1. var a,b: integer; begin readln(a); while a> 0 do begin b: =a mod 10; a: =a div 10; end; writeln ('первая цифра: ',b); end.2.  var n, count  : integer; begin readln(n); while n> 0 do begin  if n mod 10=3 then  count  : =count  +1;   n: =n div 10;   end;   write(count  ); end. 3. var n,i,count  : integer; begin  readln(n);   while n> 0 do    begin    i: =n mod 10;     if odd(i)=false then  count  : =count  +1;     n: =n div 10;   end;   writeln('кол-во четных цифр: ',count  ); end.