Question

Скласти програму заміни елементів масиву с[1..9] цілих чисел, кратних 2 з непарними номерами на 0. ПАСКАЛь

Answer 1

Ось приклад програми на мові Паскаль, яка замінює елементи масиву 'c з непарними індексами, які є кратними 2, на 0:

program replaceArrayElements;

var

 c: array[1..9] of integer;

 i: integer;

begin

 { Заповнюємо масив випадковими числами }

 randomize;

 for i := 1 to 9 do begin

   c[i] := random(100); { Випадкове число від 0 до 99 }

 end;

 { Виводимо початковий масив }

 writeln('Початковий масив:');

 for i := 1 to 9 do begin

   write(c[i], ' ');

 end;

 writeln;

 { Замінюємо елементи з непарними індексами, які є кратними 2, на 0 }

 for i := 1 to 9 do begin

   if (i mod 2 <> 0) and (c[i] mod 2 = 0) then begin

     c[i] := 0;

   end;

 end;

 { Виводимо змінений масив }

 writeln('Змінений масив:');

 for i := 1 to 9 do begin

   write(c[i], ' ');

 end;

 writeln;

end.