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

@YMSK · Регистрация: 12.09.2013

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

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

@ermolay · 12.09.2013, 21:56

Pascal

var
  a: array[1..100] of integer;
  i,n,k: integer;
begin
  repeat
    write('Ââåäèòå ðàçìåð ìàññèâà: n=');
    readln(n);
  until n in [1..100];
  writeln('Ìàññèâ:');
  for i:=1 to n do
  begin
    a[i]:=random(1001)+1000;
    write(a[i]:5);
  end;
  writeln;
  for i:=1 to n do
    if a[i] div 10 mod 10 mod 2=0 then inc(k);
  writeln('Èñêîìûõ ýëåìåíòîâ: ',k);
  readln;
end.

@YMSK 0 / 0 / 0 Регистрация: 12.09.2013 Сообщений: 9
		1
	Заполнить массив случайными числами в диапазоне 1000.2000 и подсчитать число элементов, у которых вторая с конца цифра - четная 12.09.2013, 20:53. Показов 10262. Ответов 1 Метки нет (Все метки) Заполнить массив случайными числами в диапазоне 1000..2000 и подсчитать число элементов, у которых вторая с конца цифра - четная 0

	12.09.2013, 21:56

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

Решение