В ответ на:

---

Помогите пл3 написать лабу в делфи!

---

В ответ на:

---

Полученный массив напечатать в столбик.
X = {0.1, -4, 72, 23.1, 0.45, 3.8, -2.94, 3, 1.1, 12}.
Если можно то пл3 напишите в ответе готовую структуру, спасибо

---

code:
Y={
1
12
}

 
{$APPTYPE Console}
uses
   SysUtils;

var
   x:array[1..10] of double;
   y:array[1..10] of integer;
   n,i:integer;
   t:double;
begin
   Writeln('Введите 10 чисел:');
   for i := 1 to 10 do begin
      Readln(t);
      x[i] := t;
   end;
   n := 0;
   for i := 1 to 10 do begin
      if (x[i]-round(x[i]) = 0) then begin
         inc(n);
         y[n] := round(x[i]);
      end;
   end;
   if n = 0 then begin
	Writeln('Целочисленных элементов нет')
   end else begin
      for i := 1 to n do begin
         Writeln(y[i]);
      end;
   end;
end.

 

В ответ на:

---

x:array[1..10] of double
 if (x[i]-round(x[i]) = 0)

---

В ответ на:

---

FAIL

---

В ответ на:

---

мне кажется, нельзя с клавиатуры ввести такое double x...

---

 
{$APPTYPE Console}
uses
   SysUtils;

var
   x:array[1..10] of double;
   y:array[1..10] of integer;
   n,i:integer;
   t:double;
begin
   Writeln('Введите 10 чисел:');
   for i := 1 to 10 do begin
      Readln(t);
      x[i] := t;
   end;
   n := 0;
   for i := 1 to 10 do begin
      if (x[i]-round(x[i]) = 0) then begin
         inc(n);
         y[n] := round(x[i]);
      end;
   end;
   if n = 0 then begin
	Writeln('Целочисленных элементов нет')
   end else begin
      Writeln('Целые:');
      for i := 1 to n do begin
         Writeln(y[i]);
      end;
      Writeln('Исходный массив:');
      for i := 1 to 10 do begin
        Writeln(x[i]:0:40);
      end;
   end;
end.
 

beaver@yacht ~ $ ./proga
Введите 10 чисел:
1
2
3
4
5
6
7
8
9
9.000000000000001  
Целые:
1
2
3
4
5
6
7
8
9
Исходный массив:
1.000000000000000
2.000000000000000
3.000000000000000
4.000000000000000
5.000000000000000
6.000000000000000
7.000000000000000
8.000000000000000
9.000000000000000
9.000000000000000
beaver@yacht ~ $ ./proga
Введите 10 чисел:
1
2
3
4
5
6
7
8
9
9.0000000000000001
Целые:
1
2
3
4
5
6
7
8
9
9
Исходный массив:
1.000000000000000
2.000000000000000
3.000000000000000
4.000000000000000
5.000000000000000
6.000000000000000
7.000000000000000
8.000000000000000
9.000000000000000
9.000000000000000

  

В ответ на:

---

не вынуждай меня ставить компилятор....

---

В ответ на:

---

P.S. по хорошему надо прочитать, а потом под дебагером посмотреть содержимое ячейки

---

В ответ на:

---

а ты к чему это спросил?

---