Одномерный массив

[gennadii]

Дана задача, знаю, что не сложная, но в теме с массивами, я пока мягко говоря, слабоват. Если не трудно, то пожалуйста помогите:
В массиве 15 элементов, найти минимальное кратное трем и для остальных среднее арифметическое, составить программу и блок-схему к ней.

[Niro]

Найдите на форуме задаче про поиск минимального элемента в массиве - она основа, найдите первый элемент кратный трём, его и примите за первоначальный минимум.
Добавьте к обычной проверке в цикле, там где ищется min элемент проверку что бы текущий элемент был кратен трём, т.е. делился на три без остатка (используйте mod)
Т.е.

если (текущий элемент<min) и (кратен трем), то за минимум взять его

[gennadii]

то есть получается

 if (i<min) and (i mod 3) then min:=i;

так?

[Niro]

Почти. У вас ведь массив, т.е. набор упорядоченных данных, так что надо указать имя массива и его индекс (например mas[5] - это означает что мы обращаемя к массиву с именем mas, к его пятому элементу ), это раз и во-вторых

(i mod 3)

и что, а кто будет проверять чему равен остаток от деления?
Подкоректировал

 if (massiv[i]<min) and (massiv[i] mod 3=0) then min:=massiv[i];

P.S. и не зубудьте про первоначальный минимум, его ищите в другом цикле перед этим

[gennadii]

Что-то неправильно, а что? всю голову сломал, подскажите, где торможу?

program zadacha_1;
 uses crt;
Const
  N=15;
var
  mas:array [1..n] of integer;
  i: integer;
  summa,min:integer;
  sr:real;
  begin
   clrscr;
   Writeln('Vvedite ', n, ' chisel:');
   Writeln;
   summa:=0;
    for i:=1 to n do
     begin
       Write('Vvedite mas[', i, ']=');
       readln(mas[i]);
       summa:=summa+mas[i];
     end;
     min:=mas[1];
     for i:=1 to n do
     begin
     if mas[i] < min then
       begin
        min:=mas[i];
        end;
        end;
          begin
            if (mas[i]<min) and (mas[i] mod 3=0) then min:=mas[i];
            end;
       begin
         sr:=summa/15;
         end;
              Writeln('minimalnoe kratnoe trem=', min);
              Writeln('srednee arifmeticheskoe massiva=',sr:3:1);
               Readkey;
         end.

[Hacker19_90]

А так?

program zadacha_1;
 uses crt;
Const
  N=15;
var
  m:array [1..n] of integer;
  i, pos: integer;
  summa,min:integer;
  sr:real;
  begin
   clrscr;
   Writeln('Vvedite ', n, ' chisel:');
   Writeln;
   summa:=0;
     for i:=1 to n do
     begin
       Write('Vvedite mas[', i, ']=');
       readln(m[i]);
       summa:=summa+m[i];
     end;
     for i := 1 to n do
     begin
         if ((m[i] mod 3) = 0) then
         begin
             pos := i;
             min := m[i];
             break;
         end;
     end;
     for i := pos to n do
     begin
         if (m[i] < min) and ((m[i] mod 3) = 0) then
         begin
            min:=m[i];
         end;
     end;
     sr:=summa/15;
     Writeln('minimalnoe kratnoe trem=', min);
     Writeln('srednee arifmeticheskoe massiva=',sr:3:1);
     Readkey;
end.

[Niro]

for i:=1 to n do //находим первый элемент в массиве кратный трём и выходим из цикла

 if (mas[i] mod 3)=0 then begin min:=mas[i]; halt; end;

найденный элемент и считается первым минимальным (условно)
Вообще алгоритм поиска мин (max) элемента следующий - за мин. элем. принимается первый элемент массива, а затем в цикле он сравнивается с другими элементами и если находится элемент, меньший найденного первого минимума, то за минимум принимается этот найденный элемент.
у нас же нужно найти мин. кратный трём поэтому мы занимальный и принимаем первый элемент кратный трём

for i:=1 to n do
if (mas[i]<min) and (mas[i] mod 3=0) then min:=mas[i] else begin
                                                                                summa:=summa+mas[i];
                                                                                k:=k+1; 
                                                                                end;
srednee:=srednee/k;
writeln(srednee);
writeln(min);

[gennadii]

Спасибо, Вам огромное за ваши труды!!!
Думаю вот это будет оптимальный вариант:

program zadacha_15;
 uses crt;
Const
  N=15;
var
  mas:array [1..n] of integer;
  i,pos,k: integer;
  summa,min:integer;
  sr:real;
  begin
   clrscr;
   Writeln('Vvedite ', n, ' chisel:');
   Writeln;
   summa:=0;
     for i:=1 to n do
     begin
       Write('Vvedite mas[', i, ']=');
       readln(mas[i]);
       summa:=summa+mas[i];
       k:=k+1;
       sr:=summa/k;
     end;
     for i := 1 to n do
     begin
         if ((mas[i] mod 3) = 0) then
         begin
             pos := i;
             min := mas[i];
             break;
         end;
     end;
     for i := pos to n do
     begin
         if (mas[i] < min) and ((mas[i] mod 3) = 0) then
         begin
            min:=mas[i];
         end;
     end;
     Writeln('minimalnoe kratnoe trem=', min);
     Writeln('srednee arifmeticheskoe massiva=',sr:3:1);
     Readkey;
end.

[Stilet]

Предлагаю сократить:

program zadacha_15;
 uses crt;
Const
  N=15;
var
  mas:array [1..n] of integer;
  i,pos,k: integer;
  summa,min:integer;
  sr:real;
begin
   clrscr;
   Writeln('Vvedite ', n, ' chisel:');
   Writeln;
   summa:=0;min:=1;
     for i:=1 to n do
     begin
       Write('Vvedite mas[', i, ']=');       readln(mas[i]);
       summa:=summa+mas[i];
       if ((mas[i] mod 3) = 0)and(mas[i]<mas[min]) then min:=i;
     end;
     summa:=summa-mas[min];
     sr:=summa/(i-1);
     Writeln('minimalnoe kratnoe trem=', mas[min]);
     Writeln('srednee arifmeticheskoe massiva=',sr:3:1);
     Readkey;
end.

[Hacker19_90]

Не катит!

summa:=0;min:=1;
for i:=1 to n do
     begin
       Write('Vvedite mas[', i, ']=');       readln(mas[i]);
       summa:=summa+mas[i];
       if ((mas[i] mod 3) = 0)and(mas[i]<mas[min]) then min:=i;
     end;

допустим масиив у нас такой
1 2 3 4 5 6 7 8 9;
минимальный 3! Но по вашему коду это 1;