помогите пожалуйста с решением задач с матрицами очень прошу

[Денисько54]

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

1) Дан одномерный массив из 16 элементов. Поменять местами наибольший элемент массива с наименьшим. вывести новый массив

2) Создать матрицу 5*4. Поменять местами строки, содержащие максимальные элементы и минимальные элементы. вывести новую матрицу.




С уважением: Денис

[nikleb]

program ed;
uses crt;
var a:array[1..16]of integer;
    i,max,min,maxn,minn:integer;
begin
clrscr;
randomize;
min:=32000;
for i:=1 to 16 do
    begin
    a[i]:=random(10);
    if a[i]>max then
       begin
       max:=a[i];
       maxn:=i;
       end;
    if a[i]<min then
       begin
       min:=a[i];
       minn:=i;
       end;
    write(a[i]:3);
    end;
writeln;
a[maxn]:=min;
a[minn]:=max;
for i:=1 to 16 do
    write(a[i]:3);
readln;
end.

[Мош]

спасибо тебе большое. Посмотри пожалуйста еще вторую задачу, если сможешь реши ее пожалуйста

[МаксимNEWProgramm]

Задача 2

uses crt;
var a:array[1..100,1..100]of byte;
i,j,n,k,l,m,n:longint;
begin
read(n,m);randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20);
big:=0;pozbig:=1;
lit:=20;pozlit:=1;
for i:=1 to n do
for j:=1 to m do
begin
    if a[i,j]>big then begin big:=a[i,j];pozbig:=i;end;
    if a[i,j]<lit then begin lit:=a[i,j];pozlit:=i;end;
end;
for j:=1 to m do
begin t:=a[pozbig,j];a[pozbig,j]:=a[pozlit,j];a[pozlit,j]:=t;end;
for i:=1 to n do
begin writeln;
for j:=1 to m do
write(a[i,j]' ');
readkey;
end.

[Мош]

что то не работает программа, ошибка

[Stilet]

ошибка

Видимо ошибка без букв.

[Мош]

попытка присвоить выражению типа a:array[1..100,1..100]of byte выражение типа byte

[Stilet]

У меня поче му то другие ошибки выдало - кучу синтаксических
Вот переделал:

uses crt;
var a:array[1..100,1..100]of byte;
big,pozbig,t,
lit,pozlit,
i,j,n,k,l,m:longint;
begin
read(n,m);randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20);
big:=0;pozbig:=1;
lit:=20;pozlit:=1;
for i:=1 to n do
for j:=1 to m do
begin
    if a[i,j]>big then begin big:=a[i,j];pozbig:=i;end;
    if a[i,j]<lit then begin lit:=a[i,j];pozlit:=i;end;
end;
for j:=1 to m do
begin t:=a[pozbig,j];a[pozbig,j]:=a[pozlit,j];a[pozlit,j]:=t;end;
for i:=1 to n do
begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end;
readkey;

end.

Работает и что-то выдает.

[макс07]

ПОМОГИТЕ пожалуйста!!!! НЕобходимо задать символьный массив 4*3 (вставка из ассемблера подсчета количества гласных) вывод колличества гласных.
в раскале же можно делать в ставку программы на ассемблере??? и какой компилятор, библиотека для этого нужно???

[МаксимNEWProgramm]

Ошибки были ,но синтаксические! -Тут уж и идею подал ну вот исправил задача 2)
uses crt;
var a:array[1..100,1..100]of integer;
t,lit,pozlit,i,j,n,k,l,m,big,pozbig :longint;
begin clrscr;
read(n,m);randomize;
for i:=1 to n do
begin writeln;
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
end;writeln;
big:=0;pozbig:=1;
lit:=20;pozlit:=1;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>big then begin big:=a[i,j];pozbig:=i;end;
if a[i,j]<lit then begin lit:=a[i,j];pozlit:=i;end;
end;
for j:=1 to m do
begin t:=a[pozbig,j];a[pozbig,j]:=a[pozlit,j];a[pozlit,j]:=t;end;
for i:=1 to n do
begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end;
readkey;
end.