Паскаль. массивы

[}{oTT@БЬ)Ч™]

Народ напишите пожалуйста программу вот её текст Задание 6
Даны массивы А1, … , А20
В1, … , В20
Поменять местами Аmin и В max .

[Alex21]

Поищите в этом же разделе, уже рассмотрена куча подобных тем.

[kommunist]

А что конкретно не получается?

[}{oTT@БЬ)Ч™]

Что то я не смог найти потобных задач, а конкретно, не получается потому, что я почти 0 в программиравании, напишите прогу если не трудно очень надо.

[Tayfun]

Что то я не смог найти потобных задач, а конкретно, не получается потому, что я почти 0 в программиравании, напишите прогу если не трудно очень надо.

Вот основные алгоритмы:
Находим amin:

amin:=a[1]; pa:=1;
for i:=2 to 20 do
if amin>a[i] then begin amin:=a[i];pa:=i; end;

bmax:

bmax:=b[1]; pb:=1;
for i:=2 to 20 do
if bmax<b[i] then begin bmax:=b[i]; pb:=i; end;

меняем местами:

p:=a[pa]; a[pa]:=b[pb]; b[pb]:=p;

Если совсем туго с кодом, то в Личку

[}{oTT@БЬ)Ч™]

Извини а ты не мог бы написать прогу от начала до конца.

[kommunist]

program massiv;
uses crt;
const n = 20;
type matrica = array[1..n] of byte;
var a:matrica;
    b:matrica;
    i:integer;
    j:integer;
    maxB:integer;
    minA:integer;
    c,d,f:integer;
begin
    writeln;
    clrscr;
    randomize;
    for i:= 1 to n do
begin
    a[i]:=random(10);
    write(a[i],' ');
end;
writeln;
     writeln;
    for i:= 1 to n do
begin
    b[i]:=random(10);
    write(b[i], ' ');
end;
writeln;
    minA:=a[1];
    c:=1;
    for i:= 2 to n do
    if minA > a[i] then
begin
     minA:=a[i];
     c:=i;
end;
      maxB:=b[1];
      d:=1;
      for i:= 2 to n do
      if maxB<b[i] then
begin
      maxB:=b[i];
      d:=i;
end;
      f:=a[c];
      a[c]:=b[d];
      b[d]:=f;
      writeln;
      for i:= 1 to n do
begin
      write(a[i],' ');
end;
      writeln;
      writeln;
            for i:= 1 to n do
begin
      write(b[i],' ');
end;
      writeln;
      readln;

end.

[}{oTT@БЬ)Ч™]

Ивините а вы не моглибы написать ту же самую прогу только чтобы ввод чисел осуществлялся из внешнего файла

[kommunist]

program massiv;
uses crt;
const n = 20;
type matrica = array[1..n] of byte;
var 
    f:file;
    fname:string;
    a:matrica;
    b:matrica;
    i:integer;
    j:integer;
    maxB:integer;
    minA:integer;
    c,d,f:integer;
begin
    writeln;
    fname := 'E:\asd.txt';
    assignfile(f,fname);
    reset(f);
    read(f,a[i,j]);
    for i:= 1 to n do
begin
    write(a[i]:2,' ');
end;
writeln;
     writeln;
    for i:= 1 to n do
begin
    assignfile(f,fname);
    reset(f);
    read(f,b[i,j]);
    write(b[i], ' ');
end;
writeln;
    minA:=a[1];
    c:=1;
    for i:= 2 to n do
    if minA > a[i] then
begin
     minA:=a[i];
     c:=i;
end;
      maxB:=b[1];
      d:=1;
      for i:= 2 to n do
      if maxB<b[i] then
begin
      maxB:=b[i];
      d:=i;
end;
      f:=a[c];
      a[c]:=b[d];
      b[d]:=f;
      writeln;
      for i:= 1 to n do
begin
      write(a[i],' ');
end;
      writeln;
      writeln;
            for i:= 1 to n do
begin
      write(b[i],' ');
end;
      writeln;
      readln;

end.__________________

[_Ася_]

Помогите пожалуйста) Паскаль. Массивы. вот условие задачи: Вычислить количество элементов каждой строки матрицы А,удовлетворяющих условию : 0≦A(ij)≦ 10