(30 БАЛЛОВ!)Задание: составить программу на языке Паскаль для решения следующей задачи: задать одномерный массив случайным образом, элементы которого принадлежат промежутку [-30;40];
найти количество элементов массива, принадлежащих промежутку [-10;25).
Const
n = 3;
var
i,s:integer;
a:array[1..n] of integer;
begin
s:=0;
for i:=1 to n do
begin
a[i]:=random(71)-30;
if (a[i]>=-10) and (a[i]<25) then s:=s+1;
end;
writeln(Полученный массив:);
for i:=1 to n do
write(a[:4,i,]=,a[i]);
writeln;
write(Промежутку [-10;25) принадлежат ,s, элемент(ов));
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
