Дан файл, содержащий целые числа. Найти количество нечетных чисел среди элементов файла

[stasyan]

Собственно заранее благодарен .Дан файл, содержащий целые числа. Найти количество нечетных чисел среди элементов файла.

[Google2010]

Собственно заранее благодарен

Собственно язык программирования?

[stasyan]

собственно паскаль

[Google2010]

Собственно готов помочь!
553-566-179 недорого)

[Пепел Феникса]

файл типизированный?

[stasyan]

как условие дано так и написал , а уж как решать это без разницы главное чтоб работало и правильно)

[stasyan]

да типизированный

[Grag]

Собственно и я готов выполнить задание.
Стучитесь в аську, скайп...
Или пишите на мыло...
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[sllh_111]

как условие дано так и написал , а уж как решать это без разницы главное чтоб работало и правильно)

ну... как скажешь)))))))))

Program  mas_4;

uses crt;

Var a:array[1..1000]  of integer;

k2,n,i:integer;

Begin

Writeln('введите размерность массива'); Readln(n);

Randomize;

k2:=0;

For i:=1 to n do

begin

a[i]:=random(100)-50; {здесь введится масив(случайно)}


 write(a[i]:3);

if a[i] mod 2<> 0 then k2:=k2+1;

End;

Writeln;

Writeln('количество нечетных чисел=',k2);

Readln;

End.

мда, и вы еще хотите такую прогу за деньги писать...

[sllh_111]

алгоритм здесь правильный, если чего не хватает - дописывай сам
массив вводится случайно, если хочешь сам вводить пропиши:

begin 
write('Введите размерность матрицы: ');
readln(m);
writeln('Введите матрицу: ');
for i:= 1 to m do
read(a[i]);

если нужно вводить матрицу в текстовом файле, то делай ппо примеру:

Procedure vvod; 
begin assign(y,'INPUT.TXT'); 
reset(y); 
readln(y,n);
 close(y); end; 

 Procedure print; 
begin assign(y1,'OUTPUT.TXT'); 
rewrite(y1); write(y1); 
close(y1); end; 

begin clrscr; 
vvod;
print; end.