1) k=0
Цикл от 1 до 5 в котором проверяется каждый элемент массива на условие a[i]>5 (a[i]-элемент массива) если это истинно то k+1; Цель задачи это количество элементов больших за 5; Ответ: 3
2) Цикл от 1 до 5 в котором проверяется каждый элемент массива на условие четности, если элемент четный то ему присваивают 0 (То есть, если 8 четное, то оно станет 0); Ответ <span>3, 0, 5, 7, 0</span>
Var
k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
Write(k*2-1,' ')
End.
1101101.0101 ⇒109.3125
7557101.77⇒2022977.984<span>375</span>
ABB14.CC⇒703252.796875