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

[gennadii]

А теперь согласно условию (В массиве 15 элементов, найти минимальное кратное трем и для остальных среднее арифметическое), добиваем её:

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;
     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;
     sr:=(summa-min)/k;
     Writeln('minimalnoe kratnoe trem=', min);
     Writeln('srednee arifmeticheskoe ostalnix chisel massiva=',sr:3:1);
     Readkey;
end.

Жаль, что не знал об этом форуме раньше, ещё раз спасибо, теперь думаю частенько буду здесь, да и думаю, что массивы поддадутся за более короткий срок!

[Alex Cones]

теперь думаю частенько буду здесь

Заодно поизучайте:
http://www.programmersforum.ru/showthread.php?t=70310

[gennadii]

Обязательно почитаю. Но скажу откровенно, что какую литературу не читал, легко ничего не дается, надо экспериментировать, писать программы, что-то в них менять, короче, яснее, чем объяснение людей, для меня лично нет!!! Спасибо!!!
А вот текст программы, который более правильный:

program zadacha_15;
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;
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 then min:=mas[i];
 end;
if min=1 then
 begin
  writeln('V massive net chisel, kratnix 3');
  sr:=summa/n;
  write('srednee arifmeticheskoe=',sr:0:2);
 end
else
 begin
 for i:=1 to n do
  if (mas[i] < min)and(mas[i] mod 3=0) then min:=mas[i];
  writeln('Minimalnoe, kratnoe 3=',min);
  sr:=(summa-min)/(n-1);
  Writeln('Srednee arifmeticheskoe ostalnix=',sr:0:2);
 end;
readln;
end.