необходимо написать три программки на языке паскаль. каждую необходимо дописать (нач,конец).

Во втором фото задание отсутствует.

почему отсутствует, там тоже программка, где необходимо отыскать 1-ый из частей, имеющих подходящее значение, а последующий просмотр массива прекратить

ни в одном задании нет свойства массива? какой его писать в дано?

дан только кусок программки, а необходимо записать ее стопроцентно. Прошу вас помогите мне!!!

вы меня не сообразили, как задать массив?

я не знаю, задание из учебника.... больше ничего не написано. Но сказали что начало и конец программы необходимо записывать исходя из данного куска...

необходимо прочесть текст перед фрагментами программ, там в каждой надобно различное сделать.

ну вот это к третьей программке. верно???program n_6;var i,s:integer;a:array[1..10]of integer;begins:=0;for i:=1to 10doif(a[i]>50)and(a[i]<60) then s:=s+a[i];write('s=',s)end.

это не правильно!!! отсутствует кусок программы, ввод частей массива! Наберите в Pascal!

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]gt;50) and (a[i]lt;60) then s:=s+a[i];
         write('s = ',s)
end.

б) вывести 1-ый элемент массива одинаковый х
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.

в) определить количество элементов великих 50
program 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]gt;50 then k:=k+1;
         write('k = ',k);
end.