Заполните массив случайными числами в диапазоне 1000.2000

@Натали55 · Регистрация: 29.01.2015

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

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

@Joy · 26.11.2015, 13:03

Pascal

const n=10;
var
  a:array[1..n] of integer;
  i,j,k:integer;
begin
  randomize;
  k:=0;
  for i:=1 to n do begin
    repeat
      j:=random(2001);
    until (j>999) and (j<2001);
    a[i]:=j;
    write(a[i]:6);
    if not odd (a[i] mod 100 div 10) and odd(a[i] mod 1000 div 100) then k:=k+1;
end;
  writeln;
  writeln('S=',k);
end.

@Натали55 0 / 0 / 0 Регистрация: 29.01.2015 Сообщений: 65
		1
	Заполните массив случайными числами в диапазоне 1000.2000 25.11.2015, 17:04. Показов 7695. Ответов 1 Метки нет (Все метки) Заполните массив случайными числами в диапазоне 1000..2000 и подсчитайте коли-чество элементов массива, у которых вторая с конца цифра – четная, а вторая сна-чала – нечетная. 0

	26.11.2015, 13:03

Опции темы

Заполните массив случайными числами в диапазоне 1000.2000

Решение