Question

1. Найти сумму элементов массива, принадлежащих промежутку от 20 до 150. (Pascal) ​

Answer 1

Ответ:

var  

 arr:array[1..1000] of integer;

 i,N,S:integer;

begin

 

 S:=0;

 

 write('укажите размер массива - ');

 read(N);

 

 for i:=1 to N do

 begin

   arr[i]:=1+random(300);

   

   write(arr[i],'  ');

   

   if (20<=arr[i]) and (arr[i]<=150) then S:=S+arr[i];

   

 end;

 writeln;

 

 write('Сумма - ',S);

end.

Объяснение:

Answer 2

Чтобы найти сумму элементов массива, принадлежащих промежутку от 20 до 150 в Pascal, необходимо выполнить следующие шаги: 1. Объявить и инициализировать массив: ```pascal var arr: array[1..n] of integer; // n - размер массива ``` 2. Объявить переменную для хранения суммы: ```pascal var sum: integer; ``` 3. Инициализировать переменную суммы нулевым значением: ```pascal sum := 0; ``` 4. Пройти по каждому элементу массива и проверить, принадлежит ли он промежутку от 20 до 150: ```pascal for i := 1 to n do begin if (arr[i] >= 20) and (arr[i] <= 150) then sum := sum + arr[i]; end; ``` 5. Вывести полученную сумму: ```pascal writeln('Сумма элементов массива, принадлежащих промежутку от 20 до 150: ', sum); ``` Полный код программы будет выглядеть следующим образом: ```pascal var arr: array[1..n] of integer; // n - размер массива sum: integer; i: integer; begin sum := 0; for i := 1 to n do begin if (arr[i] >= 20) and (arr[i] <= 150) then sum := sum + arr[i]; end; writeln('Сумма элементов массива, принадлежащих промежутку от 20 до 150: ', sum); end. ``` Замените `n` на размер вашего массива и заполните массив значениями перед выполнением программы.