Вычислить произведение нечетных чисел и сумму четных результат вывести на экран нечетные числа записать в файл ODD_NUM.DAT и вывести содержимое файла.
program PascalGuru;
var
i, n, p, code: integer;
s: string;
a: array [1 .. 100] of integer;
pr, summa: integer;
f: text;
begin
writeln('Vvedite cisla cerez probel: ');
readln(s);
i := 0;
repeat
inc(i);
p := pos(' ', s);
val(copy(s, 1, p - 1), a[i], code);
delete(s, 1, p);
until p = 0;
val(s, a[i], code);
n := i;
pr := 1;
summa := 0;
for i := 1 to n do
if odd(a[i]) then
pr := pr * a[i]
else
summa := summa + a[i];
writeln;
writeln('Proizvedenie: ', pr);
writeln('Summa: ', summa);
writeln;
writeln('Necetnye:');
writeln('__________');
writeln;
assign(f, 'ODD_NUM.DAT');
rewrite(f);
for i := 1 to n do
if odd(a[i]) then
begin
write(a[i]:5);
writeln(f, a[i]);
end;
readln;
close(f);
end.