2 задачи на паскале,1 массив и одна вообще простая.

[Tima6969]

Я совсем новичок в программировании, а к следующему практическому занятию нужно написать и сдать 3 программы.
1. Программа, выводящая количество чисел от 0 до 1000, в которых есть 2 одинаковые цифры.
2. Создать массив, содержащий 10 различных целых чисел. Содержание массива сортируется по возрастанию и после этого определяются минимальные и максимальные элементы массива и их индекс.
Очень поможете.. И еще один вопрос где этому всему можно научиться? купил учебник, не помогает, вроде не совсем дуб..))

[Alex Cones]

1)У нас на форуме много учебников.
2)Наработки есть? Что-то не хочется тебя во фриланс посылать.

[Tima6969]

нет наработок, вообще ничего не умею)
могу начало))
program Числа;
begin
var a,b,c: integer;
...
end.

[ОДИНОЧЕСТВО В СЕТИ]

Содержание массива сортируется по возрастанию и после этого определяются минимальные и максимальные элементы массива и их индекс.

а чего там определять то 1 и последнее число

купил учебник

откройте его
и там нет сортировок массива?

[Deamonig]

1-я задача:

var b,a:array[0..1000] of integer;
i,s:integer;
begin
for i:=0 to 1000 do
a[i]:=i;

for i:=0 to 1000 do
 if (a[i]>=10) and (a[i]<=99) then
 if (a[i] mod 10)=(a[i] div 10)
 then 
  begin
  s:=s+1;
  b[s]:=a[i];
  end;
 
for i:=0 to 1000 do
 if (a[i]>=100) and (a[i]<=1000) then
  if ( (a[i] mod 10)=((a[i] div 10) div 10) ) or ( (a[i] mod 10)=((a[i] div 10) mod 10) )
   then  
    begin 
    s:=s+1;  
    b[s]:=a[i];
    end;
 
for i:=1 to s do
write('b[',i,']=',b[i],' ');

end.

[ОДИНОЧЕСТВО В СЕТИ]

2Deamonig
тогда уж первый цикл от 10 до 99 а второй от 100 до 1000
на 1011 итераций меньше получится
и вместо

b[s]:=a[i];

write a[i];

то еще s итераций в минус
а зачем тут вообще массив?

[Deamonig]

2-я задача:

program ss;
var
a:array[1..10] of integer;
zam,j,i:integer;
begin
for i:=1 to 10 do
 begin
 writeln('vvedite a[',i,']=');
 readln(a[i]);
 end;

 for i:=1 to 9 do
 for j:=i+1 to 10 do
 if a[i]>a[j] then
  begin
  zam:=a[i]; a[i]:=a[j]; a[j]:=zam;
  end;

writeln('yporjadkovanui massiv');
for i:=1 to 10 do
write(a[i],' ');
writeln('maks element=',a[10],' ego indeks = 10');
writeln('min element=',a[1],' ego indeks = 1');

end.

[Deamonig]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

2Deamonig
тогда уж первый цикл от 10 до 99 а второй от 100 до 1000
на 1011 итераций меньше получится

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

[Deamonig]

Нащет

b[s]:=a[i];

все там норм )

[Tima6969]

Спасибо огромное, очень выручили!))) Даже не представляете как)) очень благодарен!!