Нужно вывести массив без изменений. Например, для массива из 6 элементов, равных 2, 3, 5, 9, 12, 4, нужно получить и вывести массив, содержащий числа 2, 0, 5, 6, 9, В питоне

смог только в PHP

(код)

<?php

$r=$_POST['r'];

$fruits=array (2, 3, 5, 9, 12, 4);

$costFr=array (2, 0, 5, 6, 9, 1);

$s=0;

for ($i=0; $i<count($fruits); $i++)

{

if ($costFr[$i] ==$price)  

{  

echo $fruits[$i]," - ",$costFr[$i],"<br>";

}

}

if ($n==0)

{

echo "Такого числа нету в списке";

}

?>

(страница)

<form name='myform' action='hg.php' method='POST'>

Цифра:

<input name='k' type='text' size='2'><br>

<input name='f' type='submit' value='Продолжить'>

</form>

Объяснение:

A   B     C     NOT(B)   (A AND NOT B)   NOT(A AND NOT B)   OR C
0    0     0          1                  0                           1                     1
0    0     1          1                  0                           1                     1
0    1     0          0                  0                           1                     1
0    1     1          0                  0                           1                     1
1    0     0          1                  1                           0                     0
1    0     1          1                  1                           0                     1
1    1     0          0                  0                           1                     1
1    1     1          0                  0                           1                     1

//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7