Массив

[viper1941]

Помогите пожалуйста сделать задачу.
Дан массив натуральных чисел А(N), значения элементов которого лежат в диапазоне [1000,1500]. Найти:
а) количество элементов массива, которые не содержат в своей записи цифру 5
б) минимальный элемент среди тех, которые имеют заданное количество делителей.

[Stilet]

Значит переводи в цикле элементы массива процедурой str в строку, а потом функцией pos ищи в переведенном цифру '5'. Если вернет не 0 то значит есть 5-ка в числе.

[viper1941]

ууу.......

[Vaigard]

А пункт "б" я бы делал простым перебором. Долго, но зато наверняка

[misher]

 program Nameforprogram;
 uses CRT;
 var
 A: array[1..500] of integer;
 n, i, k,  m, l, b, c: integer;
begin
writeln('Введите количество чисел массива <501');
read(n);
writeln('Введите элементы массива в диапазоне от 1000 до 1500');
for i:=1 to n do
read(A[i]);
 k:=0;
 for i:=1 to n do
 begin
 c:=A[i];
 for b:=1 to 4 do
 begin
 l:=10;
m:=c mod l;
if m=5 then
b:=5
else
c:=c div l;
 if b=4 then k:=k+1 ;
end;
end;
write(k);
end.

Это а, б не делал.

[viper1941]

спасибо!!!

[viper1941]

у меня компилятор выдает ошибку

[phomm]

я гляжу частенько ты на форуме

 program Nameforprogram;
uses crt;
 var
 A: array[1..500] of integer;
 n, i, k, b, c: integer;
begin
writeln('Введите количество чисел массива <501');
read(n);
writeln('Введите элементы массива в диапазоне от 1000 до 1500');
for i:=1 to n
  do readln(A[i]);
k:=0;
for i:=1 to n
  do begin
  c:=A[i];
  for b:=1 to 4
    do if c mod 10 = 5
      then begin
      k:=k+1;
      break;
      end
      else c:= c div 10;
  end;
write('количество элементов без цифры 5 = ',n-k);
readln;
end.

вот переделал, будет робить )

вторую коли надо, то помоги перебороть лень... она обычно на 50 рублей ведется