1. даны целые числа b1, b2, b10. выяснить: а) верно ли, что сумма тех из них, которые больше 20, превышает 100; б) верно ли, что сумма тех из них, которые меньше 50, есть четное число.

uses crt; var b: array [1..10] of integer; i,s1,s2: integer; beginclrscr; for i: =1 to 10 dobeginrandomize; b[i]: =random(100); end; s1: =0; s2: =0; if b[i]> 20 then s1: =s1+b[i]; if s1> 100 then writeln ('a)verno')else writeln ('a)ne verno'); if b[i]< 50 then s2: =s2+b[i]; if s2 mod 2=0 then writeln ('á)verno')else writeln ('b)ne verno'); end.

1) 

const n=10; var a: array [1..n] of integer; i,max: integer; begin write('введите массив: '); for i: =1 to n do read(a[i]); readln; max: =a[1]; for i: =1 to n do if a[i]> max then max: =a[i]; writeln('максимальный элемент - ',max); readln; end.2)   3) 

const n = 100; var arr: array[1..n] of integer; i, m, qty: byte; begin write('количество элементов массива: '); readln(m); write('элементы массива через пробел: '); for i: =1 to m do read(arr[i]); readln; qty : = 0; i : = 2; while i < m do if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin qty : = qty + 1; i : = i + 2 end else i : = i + 1; writeln('кол-во элементов, которые больше соседей: ', qty); readln; end.вроде как-то так

uses  crt; var  i, n, kol: byte;   sum_rost, sr_rost: real;   team: array[1..100] of real; begin  sum_rost : = 0.0;   sr_rost : = 0.0;   kol : = 0;   write('введите количество членов команды');   read(n);   writeln('введите рост каждого члена команды');   for i : = 1 to n do    begin      readln(team[i]);       sum_rost : = sum_rost + team[i];     end;   sr_rost : = sum_rost / n;   for i : = 1 to n do    if (team[i] > sr_rost) then      kol : = kol + 1;   writeln('количество членов команды, рост которых превышает средний по команде (', sr_rost: 4: 2, ')');   write(' равно ', kol); end.прошу. я надеюсь надо было на паскале написать? )