Паскаль

[Aiman-kysh]

1задача:Сгенерировать случайным образом массив из 30 элементов в диапазоне
[-30; 10]. Рассмотреть все отрицательные последовательности в массиве.
Минимальный элемент в каждой из них заменить нулем.


2задача:Дана действительная квадратная матрица порядка Р (Р - нечетное),
все элементы которой различны. Найти наибольший элемент среди стоящих
на главной и побочной диагоналях и поменять его местами с элементом,
стоящим на пересечении этих диагоналей.

[RUSt88]

пиши на мыло, договоримся, сделаю в лучшем виде с комментариями и пояснениями

[Grag]

Готов решить Вашу задачу.

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Google2010]

2)

var a:array[1..100,1..100] of integer;
   i,j,p:integer;
   i1,i2:integer;
   max:integer;
   begin
   writeln('p=');
readln(p);

for I := 1 to p  do 
  for j := 1 to p  do begin
writeln('[a',i,',',j,']=');
   readln(a[i,j]);
 end;
writeln('old matrix');
for I := 1 to p  do begin
  for j := 1 to p  do
   write(a[i,j]:4);
  writeln;
end;
 max:=a[1,1];
 i1:=1;
 i2:=0;
 for I := 1 to p  do
   if a[i,i]>max then begin max:=a[i,i];i1:=i;end;
  for I := 1 to p  do
   if a[i,p-i+1]>max then begin max:=a[i,p-i+1];i2:=i;end;
 if i2<>0 then begin
   max:=a[i2,p-i2+1];
   a[i2,p-i2+1]:=a[p div 2 +1,p div 2+1];
   a[p div 2 +1,p div 2+1]:=max;
 end
 else
   max:=a[i1,i1];
   a[i1,i1]:=a[p div 2 +1,p div 2+1];
   a[p div 2 +1,p div 2+1]:=max;
writeln('----------------------');
writeln('new matrix');
  for I := 1 to p  do begin
  for j := 1 to p  do
    write(a[i,j]:4);
  writeln;
end;
  readln;
end.

1)

var a:array[1..30] of integer;
   i,k:integer;
   i1,i2,i0:integer;
   begin
randomize;
 for i := 1 to 30 do begin
   A[i]:=random(41)-30;
  write(a[i]:4);end;
 i:=1;i1:=1;
 repeat
  while i<=30 do begin
  if a[i]<0 then begin  i1:=i;break;end
  else inc(i);
end;
   i2:=i1;
   while a[i2]<0 do inc (i2);
   i0:=i1;
   for k := i1+1 to i2 do
   if a[k]<a[i0] then i0:=k;
   a[i0]:=0;
   i:=i2+1;
until (i>30);
writeln;
writeln('----------------------');
  for I := 1 to 30 do
  write(a[i]:4);
  readln;
end.