Написать программу которая вычеслит парлалепида

Question

Информатика: Написать программу которая вычеслит парлалепида

safeer · Accepted 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.

Написать программу на паскале 20) заменить k-й элемент одномерного массива на 0, если этот элемент ч

Написать программу на паскале 20) заменить k-й элемент одномерного массива на 0, если этот элемент ч

MOGZ ответил