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

Тилилинка Тилилинка    1   08.04.2020 16:24    2

Ответы
ulyana14547 ulyana14547  12.10.2020 22:57

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика