Паскаль массив
На основе исходного файла целых чисел создать массив удвоенных нечётных чисел. Перезаписать массив в файл. Спасибо!
Ну здесь ничего сложного - перебрать весь массив, и, если число четное, умножить его на 2 и записать. Функция проверки четности - Odd.
Ни что так не ограничивает фантазию программиста, как компилятор...
Вы наверное не поняли кому хотите объяснить-ПОЛНОМУ чайнику! Нужна вся программа, плиз...
Ну тогда так:
[syntax='Delphi']
const
N=10;
var
A1,A2:array [1..N] of integer;
I:integer;
C:integer;
begin
writeln('Введите ',N,' чисел');
for i:=1 to N do
readln(A1);
C:=0;
for i:=1 to N do
if not Odd(A1) then
begin
Inc(C);
A2[C]:=A1*2;
end;
for i:=1 to C do
write(A2,' ');
readln;
end.
[/syntax]
[syntax='Delphi']
const
N=10;
var
A1,A2:array [1..N] of integer;
I:integer;
C:integer;
begin
writeln('Введите ',N,' чисел');
for i:=1 to N do
readln(A1);
C:=0;
for i:=1 to N do
if not Odd(A1) then
begin
Inc(C);
A2[C]:=A1*2;
end;
for i:=1 to C do
write(A2,' ');
readln;
end.
[/syntax]
Ни что так не ограничивает фантазию программиста, как компилятор...