Подсчитать число элементов массива, у которых вторая с конца цифра-четная

@NickPaskalNoob · Регистрация: 08.10.2012

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

Заполнить массив случайными числами в интервале [1000;2000] и подсчитать число элементов, у которых вторая с конца цифра-четная. Требуется, полное тело задачи, спс за ранее.

@Yurek · 19.11.2012, 16:13

Вот, передаю тебе полное тело задачи:

Pascal

program Random_1k_2k;
const
  n=1000;
var
  a : array[1..n] of integer;
  i, sum : integer;
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(1000) + 1001;
    if (a[i] div 10) mod 2 = 0 then
      sum := sum + 1;
    writeln(a[i]:5);
  end;
  writeln('Количество чётных элементов: ', sum:5);
end.

@NickPaskalNoob 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 13
		1
	Подсчитать число элементов массива, у которых вторая с конца цифра-четная 19.11.2012, 15:02. Показов 3000. Ответов 1 Метки нет (Все метки) Заполнить массив случайными числами в интервале [1000;2000] и подсчитать число элементов, у которых вторая с конца цифра-четная. Требуется, полное тело задачи, спс за ранее. 0

Опции темы

Подсчитать число элементов массива, у которых вторая с конца цифра-четная

Решение