Паскаль!!!

[noone]

1. В массиве хранится информация о количестве осадков, выпавших за каждый день января. Выведите на экран числа месяца, в которые осадков не было (количество осадков равно нулю).
2. В одномерном массиве все элементы различные. Поменять местами минимальный и максимальный элементы


3. Ввести массив а [1], а [2],..., а [n] целого типа и заменить все его элементы, стоящие пос-ле минимального, нулями. Полученный массив вывести на экран.
4. В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.

[ByAlex]

Держи вторую -

uses crt;
const
  n=10;
var
  Mas:array[1..n] of integer;
  t,i,min,mini,maxi,max:integer;
begin
  writeln('Input massive[',n,'] - ');
  for i := 1 to n do
  begin
    write('Mas[',i,'] = ');
    readln(Mas[i]);
  end;
  min:=Mas[1];
  Max:=mas[1];
  for i := 1 to n do
  begin
    if Mas[i]<min then
    begin
      min:=mas[i];
      mini:=i;
    end
    else
    if Mas[i]>max then
    begin
      max:=mas[i];
      maxi:=i;
    end;
  end;
  t:=Mas[maxi];
  Mas[maxi]:=Mas[mini];
  Mas[mini]:=t;
  writeln;
  for i := 1 to n do
    write(Mas[i],' ');
  readln;
end.

[Hacker19_90]

Сообщение от ByAlex

Держи вторую -

хм...
мб слегка покороче сделать?

max := 1;
min := 1;
for i := 1 to n do
begin
     Readln (mas[i]);
     if mas[i]  > mas[max] then max := i;
     if mas[i]  < mas[min] then min := i;
end;
if mas <> min then
begin
     mas[max] := mas[max] xor mas[min];
     mas[min] := mas[max] xor mas[min];
     mas[max] := mas[max] xor mas[min];
end;

[McFrey]

первая

var
   zn:array [1..31] of longint;
   i:longint;
begin
 writeln('Введите количество осадков, выпадавших каждый день.');
   for i:=1 to 31 do
      readln(zn[i]);
   for i:=1 to 31 do
   begin
      if(zn[i]=0) then
         writeln(i);
   end;
end.

[Hacker19_90]

3. Ввести массив а [1], а [2],..., а [n] целого типа и заменить все его элементы, стоящие пос-ле минимального, нулями. Полученный массив вывести на экран.

min := 1;
for i := 1 to n do
begin
     Readln (mas[i]);
     if mas[i]  < mas[min] then min := i;
end;
for i := min+1 to n do
    mas[i] := 0;

4. В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.

sum := 0.0;
for i := 1 to n do
begin
     Readln (mas[i]);
     sum := sum + mas[i];
end;
count := 0;
for i := 1 to n do
    if mas[i] < (sum/n) then
        Inc(count);

[ByAlex]

Сообщение от Hacker19_90

хм...
мб слегка покороче сделать?

max := 1;
min := 1;
for i := 1 to n do
begin
     Readln (mas[i]);
     if mas[i]  > mas[max] then max := i;
     if mas[i]  < mas[min] then min := i;
end;
if mas <> min then
begin
     mas[max] := mas[max] xor mas[min];
     mas[min] := mas[max] xor mas[min];
     mas[max] := mas[max] xor mas[min];
end;

Что вы здесь имели ввиду?

[Hacker19_90]

Что вы здесь имели ввиду?

перестановка с помощью xor, имеет подводные камни!
Касаемо кода:
1) Если индекс минимального и максимального совпадут
(допустим это массив типа 5 5 5 5 5 !)
тогда min будет равен max = 1;
и xor просто обнулит первое значение.
2) Такое же обнуление может произойти если
mas[min] = mas[max]
Что конечно в данном случае исключается! Но всё же...
Также даст обнуление уже двух элементов!

[ByAlex]

Я имел ввиду, что у вас там ошибка - if max<>min then

[Hacker19_90]

Я имел ввиду, что у вас там ошибка - if max<>min then

в чем у меня там ошибка?

[ByAlex]

Сообщение от Hacker19_90

в чем у меня там ошибка?

Вы сравниваете массив с минимальным элементом - if mas<>min then, а нужно if max<>min then.