ан массив х(n).элементы массива,значения которых не принадлежат интервалу[A,B], разделить на 100 и подсчитать кол-во таких элементов. значения всех остальных элементов возвести а квадрат.
помогите написать программы в паскале

1

Ответы и объяснения

Лучший Ответ!
2014-02-24T15:46:42+04:00
Var
 x:array[1..100] of real;
 a,b,sum,i,n:integer;
begin
 sum:=0;
 readln(n,a,b);
 for i:=1 to n do
  read(x[i]);
 for i:=1 to n do
 begin
  if (x[i]>=a) and (x[i]<=b) then
  begin
   sum:=sum+1;
   x[i]:=x[i]/100;
  end
  else
   x[i]:=x[i]*x[i];
 end;
 for i:=1 to n do
  write(x[i],' ');
 writeln;
 writeln('Сумма:',sum);
end.