Нужна помощь

[jax]

Нужна помощь

нужно написать программу в PascaleABC,задание такое - даны 10 вещественных чисел: а1,а2...а10. а) определить сколько из них принимает значений,больше заданного числа b. б)найти порядковый номер того из них,которые наиболее близко к какому-нибудь целому числу.

 

[Vladimir_S]

нужно написать программу в PascaleABC,задание такое - даны 10 вещественных чисел: а1,а2...а10. а) определить сколько из них принимает значений,больше заданного числа b. б)найти порядковый номер того из них,которые наиболее близко к какому-нибудь целому числу.

Друг мой, Вы ведь, как я понял, собирались освоить программирование? Ну так вот и учитесь на таких сверхпростеньких задачках, пишите, пробуйте, а не вываливайте их не глядя на форум! А мы всегда готовы помочь, подсказать. Дерзайте!

 

[jax]

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

 

[Vladimir_S]

Ну ладно, раз так - пожалуйста:

VAR
 A:ARRAY[1..10] of Real;
 b,dif:Real;
 n,i_n,n_large:Byte;
 i:Integer;
BEGIN
 Randomize;
 For i:=1 to 10 do
  begin
   A[i]:=Random*100;
   Write(A[i]:7:3);
  end;
 WriteLn;
 Write('b= ');
 ReadLn(b);
 Write('n= ');
 ReadLn(n);
 n_large:=0;
 For i:=1 to 10 do
  if A[i]>b then n_large:=n_large+1;
 WriteLn('Number of elements larger then ',b:7:3,' is ',n_large);
 dif:=100;
 For i:=1 to 10 do
  if Abs(A[i]-1.0*n)<dif then
   begin
    dif:=Abs(A[i]-1.0*n);
    i_n:=i;
   end;
 WriteLn('Close to ',n,' is the element number ',i_n);
 ReadLn;
END.

 

[jax]

Большое спасибо,вы выручили меня.