Cоздать программу в паскале "ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ" плиз очень надо

Question

Cоздать программу в паскале "ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ" плиз очень надо

Comments

Не понял, это просто сложить их, разделить и т.д. ?!

---

Условие не точное, обработок много, можно найти и минимальное число и заменить его наибольшим

---

может "сортировка одномерных массивов"?

---

Давайте сортировку сделаю

Answer 1

Program asd;
USES crt;
Const n=5;
var   A:array[1..n] of integer; 
   i,j,k:integer;
BEGIN
  for i:=1 to n do
  begin 
 A[i]:=random(10);
 Write(A[i]:4);   
  end;
 for i:=1 to n-1 do
 begin 
  for j := 1 to n-i do 
  if A[j]>A[j+1] then 
  begin 
k:=A[j]; 
A[j]:=A[j+1];
A[j+1]:=k 
 end;           
 end;           
Writeln;
Writeln ('Отсортированный массив по возрастанию: ');
  for i := 1 to n do 
    Write (A[i]:4); 
  Writeln;
END.

Comments

Это задача по нахождению суммы и произведения элементов матрицы.
Program asd;
USES crt;
Const n=5;
var A:array[1..n] of integer;
var p,s,d,v:real; i:integer;
BEGIN
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
P:=1; V:=0;
For i:=1 to n do
begin
S:=S+A[i];
P:=P*A[i];
end;
Writeln;
Writeln('Сумма матрицы: ',s,' Произведение: ',p);
END.