Составить программу на языке паскаль

Question

которая создает файл состоящий из N значений типа integer прочитать файл и фыведите только нечетные элементы

Святослав Чарыев · Accepted Answer

Вы вообще поисковиками умеете пользоваться? Ничего, что за 10 секунд можно найти готовое решение? 
 
Uses wincrt; 
 
var f:text; 
a:array [1..50] of integer; 
i,n,x:integer; 
 
begin 
 assign(f,'C:\out.txt'); 
 rewrite(f); 
 Write('Введите кол-во значений. N = ');readln(n); 
 For i:=1 to n do 
 begin 
 randomize; 
 a:=random(50); 
 Write(f,a,' '); 
 end; 
 reset(f); 
 Write('Нечетные элементы: '); 
 While not Eof(f) do 
 begin 
 read(f, x); 
 if odd(x) then 
 write(x,' '); 
 end; 
 close(f); 
end