нужно написать три программы на языке паскаль. каждую нужно дописать (нач,конец). ОЧЕНЬ СРОЧНО!!! Прошу помогайте те кто реально в этом понимает

определить количество элементов значение которых больше чем 50

если будут принадлежать (50..60), то просто просуммировать от 1 до 10 и все, а у тебя условие суммирования, значит должны быть элементы не принадлежащие этому промежутку.

кнопочка "спасибо" не работает и звездочек нету???

1) просуммировать элементы массива, значения которых принадлежат промежутку (50; 60)program task_1;var i,s:integer;     a:array[1..10] of integer;begin     for i:=1 to 10 do         begin              a[i]:=random(51)+30;  {массив случайных чисел из промежутка [30, 80]}                   writeln('a[',i,'] = ',a[i])         end;         s:=0;         for i:=1 to 10 do             if (a[i]>50) and (a[i]<60) then s:=s+a[i];         write('s = ',s)end.б) вывести первый элемент массива равный хprogram task_2;var i,x:integer;      a:array[1..10] of integer;begin     for i:=1 to 10 do         begin              a[i]:=random(51)+30;  {массив случайных чисел из промежутка [30, 80]}                   writeln('a[',i,'] = ',a[i])         end;         writeln('Введите х из диапазона [30..80]');         write('x = '); readln(x);         i:=0;         repeat i:=i+1         until (a[i]=x) or (i=10);         if a[i]=x then write(i) else write('Нет');end.в) определить количество элементов больших 50program task_3;var i,k:integer;      a:array[1..10] of integer;begin     for i:=1 to 10 do         begin              a[i]:=random(51)+30;  {массив случайных чисел из промежутка [30, 80]}                   writeln('a[',i,'] = ',a[i])         end;         k:=0;         for i:=1 to 10 do             if a[i]>50 then k:=k+1;         write('k = ',k);end.