Задача в паскале одномерный массив

[zammmash]

Сформировать линейный массив из 30 случайных чисел в интервале от -16 до 16. Найти среднее арифметическое положительных элементов. Все элементы, кратные 3 заменить удвоенным значением этих элементов и скопировать в новый массив. В новом массиве найти номер и значение минимального элемента. Все результаты вывести на экран.

[pupilMartyr]

а ты сам вообще пробовал что-либо делать?!.

[zammmash]

я вообще в тупике

[ByAlex]

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

я вообще в тупике

В чем сложности?

[denisbrain]

{
Сформировать линейный массив из 30 случайных чисел в интервале от -16 до 16.
1.Найти среднее арифметическое положительных элементов.
2.Все элементы, кратные 3 заменить удвоенным значением этих элементов и скопировать в новый массив.
3. В новом массиве найти номер и значение минимального элемента. Все результаты вывести на экран
}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var a,b:TArrayInt; // массив элементов
    Acount:integer; // размер массива А
    Bcount:integer;  // размер массива B

//1) заполнение массива случайными числами из заданного интервала;
procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=-16+random(16+16);
end;

Function ShowArray(const a:TArrayInt;Ncount:integer):string;
var s:string;
    i:integer;
begin
s:='';
 for i:=1 to ncount-1 do
 if s='' then s:=s+inttostr(a[i])
 else
  s:=s+','+inttostr(a[i]);
  result:=s;
end;
//1.Найти среднее арифметическое положительных элементов.
Function GetAVGElementWhereElementPlus(var a:TArrayInt;Ncount:integer):real;
var x,s,s1:integer;
begin
result:=0;
s:=0; // считаем сумму
s1:=0; // считаем кол-во элементов
     for x:=1 to Acount do
      if a[x]>0 then begin
         s:=s+a[x];
         s1:=s1+1;
      end;
      if s1>0 then
      result:=s/s1;
end;

//2.Все элементы, кратные 3 заменить удвоенным значением этих элементов и скопировать в новый массив.
procedure CreateNewMassivWhereElementMod3(a:TArrayInt;acount:integer;var b:TArrayInt; var bcount:integer);
var x:integer;
begin
bcount:=1;
    for x:=1 to Acount do begin
     if (a[x] mod 3)=0 then begin // Все элементы, кратные 3
       bcount:=bcount+1;
       a[x]:=a[x]*2; //заменить удвоенным значением этих элементов
       b[bcount-1]:=a[x]; // и скопировать в новый массив.
     end;
    end;
end;
//3. В новом массиве найти номер и значение минимального элемента. Все результаты вывести на экран

Function GetFirstIndexMinElementFromArray(a:TArrayInt;acount:integer):integer;
var x:integer;
begin
 result:=1;
  for x:=1 to Acount do begin
    if a[result]>a[x] then result:=x;
  end;
end;

Function ListIndexsMinElement(a:TArrayInt;acount:integer):string;
var x:integer;
    minValue:integer;
begin
  minValue:=a[GetFirstIndexMinElementFromArray(a,acount)];
  result:='';
  for X:=1 to acount do
    if a[x]=minValue then result:=result+inttostr(x)+#13+#10;
end;

var MinIndex:integer;

begin
clrscr;
 acount:=30;
// Сформировать линейный массив из 30 случайных чисел в интервале от -16 до 16.
 CreateArray(a,acount);
 Writeln('Исходный массив ');
 Writeln(ShowArray(a,acount));
 // 1.Найти среднее арифметическое положительных элементов.
 Writeln('среднее арифметическое положительных элементов', GetAVGElementWhereElementPlus(a,acount):8:3);
 
 // 2.Все элементы, кратные 3 заменить удвоенным значением этих элементов и скопировать в новый массив.
 CreateNewMassivWhereElementMod3(a,acount,b,bcount);
 Writeln('Новый массив');
 Writeln(ShowArray(b,bcount));
//3. В новом массиве найти номер и значение минимального элемента. Все результаты вывести на экран
  MinIndex:=GetFirstIndexMinElementFromArray(b,bcount);
  Writeln(' номер минимального элемента ',MinIndex);
  Writeln(' значение минимального элемента ',b[MinIndex]);
//  Writeln(ListIndexsMinElement(b,bcount)); // если минимальных номеров несколько
end.

[zammmash]

Вот мы пишем
uses crt;
const; // размер массива
type
TarrayInt=array [1..] of integer;

что дальше то..

[pupilMartyr]

i,j,sum,count: integer;
j:=1; sum:= 1; count:=0; min:= 32;

...

// формирование массива
for i:=1 to 30 do a[i]:= random(16);

// вывод сформированного массива
writeln("Сформированный массив: ");
for i:=1 to 30 do write(a[i]);
writeln("");

// поиск ср.ар. и формирование нового массива
for i:=1 to 30 do
begin
    if a[i]>0 then
    begin
        sum:= sum + a[i];
        inc(count);
    end;
    if (a[i] mod 3 = 0) then
    begin
        b[j]:= 2*a[i];
        inc(j);
    end;
end;

// вывод ср.ар.
writeln("Ср.ар. = ", (sum/count));
writeln("");

// вывод нового массива
writeln("Новый массив: ");
for i:=1 to j-1 do write(b[i]);
writeln("");

// поиск минимального в новом массиве
for i:=1 to j-1 do
    if b[i] < min then
    begin
        min:= b[i];
        index:= i;
    end;
end;

// вывод минимального и его номера из нового массива
writeln("Минимальный элемент: ", min);
writeln("... и его номер: ", index);

...

Это на 90% твой выход из тупика. Только генерировать массив будет числами от 0 до 16 (ибо я не помню как от -16, потому как на паскале не пишу 100 лет уже). Теперь СДЕЛАЙ ХОТЬ ЧТО-НИБУДЬ САМ!

И зачем в такой задаче еще процедуры использовать? В столько строчек, сколько выше написано можно курсач сделать))

[BDA]

Диапазон от -16 до 16: random(33)-16 (т.к. random выдает числа 0<=random(n)<n).

[pupilMartyr]

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

Диапазон от -16 до 16: random(33)-16 (т.к. random выдает числа 0<=random(n)<n).

Вот, даже я узнаю что-то новое)

[denisbrain]

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

Вот, даже я узнаю что-то новое)

т.е.

-16+random(16+16+1);