Написать программу на паскале
20) Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный
20) Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный
More Questions From This User See All
Answers & Comments
Verified answer
PROGRAM A24;const
max = 20;
var
c:array[1..max]of integer;
x:integer;
i, k:byte;
BEGIN
writeln('Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный');
writeln(' ');
writeln('Начальный Массив' );
randomize;
for i:=1 to max do begin
c[i]:=random(-64,64);
write(c[i], ' ');
end;
writeln(' ');
writeln(' ');
write('Введите k='); readln(k);
writeln(' ');
if odd(k) then
c[k]:=1
else
c[k]:=0;
writeln(' ');
writeln('Измененный массив' );
for i:=1 to max do
write(c[i], ' ');
END.