Здрасти, ребята.Помогите решить задачку на Паскале: Отыскать количество нечетных частей

Здрасти, ребята.
Помогите решить задачку на Паскале: Отыскать количество нечетных частей массива и уменьшить каждый элемент исходного массива на это количество. Исходный и перевоплощенный массивы отпечатать.


Задать свой вопрос
1 ответ

const n=10;

var a:array[1..n] of integer;

i,k: integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

write (a[i]:3,' ');

if a[i] mod 2 lt;gt; 0 then k:=k+1

end;

writeln;

for i:=1 to n do

begin

a[i]:=a[i]-k;

write (a[i]:3,' ')

end

end.

Artjom Alenshin
Не могли бы Вы вывести начальный массив, и преобразованный?
Oksana Pochevalova
То-есть я прошу Вас, чтоб Вы вывели второй массив, у которого Вы уменьшили каждый элемент
Вовка Землянкер
Здесь выводятся 2 массива в 2 строки... Что не устраивает?
Геннадий
Да,вы правы
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт