Ввести с клавиатуры некоторый массив. Затем осуществить проверку элементов массива на чётность

@Katharina · Регистрация: 04.04.2014

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!!!
1) Необходимо ввести с клавиатуры некоторый массив. Затем осуществить проверку элементов массива на чётность. Необходимо чётные элементы увеличить вдвое, а нечётные увеличить на 1. Результирующий массив вывести на экран.

@ildwine · 04.04.2014, 07:46

Pascal

uses crt;
const
  n = 10;
var
  a : array [1..n] of integer;
  i : integer;
begin
  for i := 1 to n do
  begin
    write('введите ', i, ' элемент массива: ');
    readln(a[i])
  end;
  clrscr;
  writeln('исходный массив:');
  for i := 1 to n do write(a[i]:4);
  writeln;
  writeln('новый массив:');
  for i := 1 to n do
  begin
    if a[i] mod 2 = 0 then a[i] := a[i] * 2 else a[i] := a[i] + 1;
    write(a[i]:4)
  end;
  writeln
end.

@Katharina 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 2
		1
	Ввести с клавиатуры некоторый массив. Затем осуществить проверку элементов массива на чётность 04.04.2014, 00:29. Показов 1758. Ответов 1 Метки нет (Все метки) Помогите пожалуйста!!! 1) Необходимо ввести с клавиатуры некоторый массив. Затем осуществить проверку элементов массива на чётность. Необходимо чётные элементы увеличить вдвое, а нечётные увеличить на 1. Результирующий массив вывести на экран. 0

	04.04.2014, 07:46

Ввести с клавиатуры некоторый массив. Затем осуществить проверку элементов массива на чётность

Решение