Задачи по паскалю.

[Lavron]

1 группа задач
1пределить сколько нулей находится до мин. значения в массиве Е[1..30
2В матрице [1..8,1..10] переставить строки в порядку убывания количества отриц. чисел в строке
3Вести текст пипа string и определить, сколько слов начинается и заканчивается на А. Вывести их на печать

2 группа задач
1. Ввести текст до первого символа ".", и посчитать количество символов "А" в каждом слове.
2. В матрице С [1..5, 1..7] переставить столбцы по возрастанию сумм столбцов матриц.

3 группа задач
1. создать массив А[1..25] Определить сумму отрицательных чисел. из положительных созд массив В. вывести на печать сумму и массив.
2. в матрице А[1..3,1..5] определить сумму положит-х чисел каждого столбца записав их в новый массив.новый массив рассортировать по убыванию
3. в тексте опред-ть средней длины слова. все слова не длиннее среднего. вывести на печать

P.S. Пожалуйста напишите решение хотябы каких нибудь задач как можно быстрей, ибо у меня даже на все задачи не хватает времени. И ЗАРАНЕЕ СПАСИБО! Даже тем кто хотел помочь Эти все задачи похожи так что я думаю те у кого есть время смогут их легко решить. Это задачи разных людей так что вы поможете многим людям
группа задач 1 это у одного, 2 у другого) так что из разных "групп задач" решите пожалуйста хоть одну...Надеюсь что помогут, к тому же сдавать завтра...как всегда в последний день...
Студент 1 курса

[alex_fcsm]

var a,b:array[1..25] of integer;
    i,n,sum:integer;

begin
randomize;
write('A:');
for i:=1 to 25 do
 begin
  a[i]:=random(20)-random(15);
  write(a[i]:3);
 end;
writeln;
n:=0;sum:=0;
for i:=1 to 25 do
 if a[i]>0 then begin
                inc(n);
                b[n]:=a[i];
                end
    else sum:=sum+a[i];
write('B');
for i:=1 to n do
 write(b[i]:3);
writeln;
writeln('Summa');
write
(sum);
end.

[alex_fcsm]

uses crt;
var a:array[1..3,1..5] of integer;
    i,j,temp:integer;
    b:array[1..5] of integer;

begin
clrscr;
randomize;
for i:=1 to 3 do
 begin
 for j:=1 to 5 do
   begin
    a[i,j]:=random(100)-random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to 5 do
 begin
  b[j]:=0;
   for i:=1 to 3 do
   if a[i,j]>0 then b[j]:=b[j]+a[i,j];
 end;
writeln;
for i:=2 to 5 do
  for j:=5 downto i do
   if b[j-1]<b[j] then begin
                       temp:=b[j-1];
                       b[j-1]:=b[j];
                       b[j]:=temp;
                       end;
for i:=1 to 5 do
 write(b[i]:4);
end.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n:integer;
    a:array[1..100] of string;
    m:real;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if s[i]<>' ' then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
m:=0;
for i:=1 to n do
 m:=m+length(a[i]);
m:=m/n;
writeln('Average length ',m:6:2);
writeln('Words:');
for i:=1 to n do
 if length(a[i])<=m then writeln(a[i]);
readln;
end.

[Lavron]

Спасибо конечно, а первую и вторую группу задач решите?

[alex_fcsm]

Задачи 2 в первых группах практически одинаковы и даже мною решались на форуме. Так что поищите

[Lavron]

Ну тогда хоть эту задачу решите пожалуйста (меня попросила одногруппница) а мне уже некогда, а ей влом решать(точней незнает)...в общем:
двумерные массивы В матрице А[1...6,1...9] вычислить сумму элементов, находящихся правее столбца с максимальным количеством элементов матрицы, и среднее арифметическое элементов, расположенных ниже строки с максимальным количеством элементов матрицы.
P.S. И вообще спасибо за то что помогли хоть

[Lavron]

Ну я не нашел у вас программ таких( Извините но если вы не поможете то больше некому...
P.S. Вы пожалуйста всетаки покажите где вы их решали то...я не смог найти(((. Но всеравно спасибо даже если вы незаходите искать...

[oblachko]

Здравствуйте!!!!!Нужна помошь!!!!!Помогите решить задачи!!!!

1)Одномерный массив А заполнить случайными числами из диапозона
[-20...20]. Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево.

2)Дан текст из N-символов.Группы символов, расположенное между пробелами и не содержашие пробелов внутри себя, называем словами.
Подсчитать длину самого длинного слова.

3)Дана действительная квадратная матрица порядка N=12. Найти сумму элементов, расположенных на побочной диагонали и выше её.


Очень надеюсь на вашу помошь.

[alex_fcsm]

uses crt;
var i,j,temp,k:integer;
    a:array[1..10,1..10] of integer;
    b,t:array[1..10] of integer;
begin
randomize;
clrscr;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
  begin
   a[i,j]:=random(100)-random(100);
   write(a[i,j]:5);
  end;
 writeln;
 end;
for i:=1 to 10 do
 begin
  b[i]:=0;
   for j:=1 to  10 do
     if a[i,j]<0 then inc(b[i]);
 end;

for i:=2 to 10 do
    for j:=10 downto i do
      if b[j-1]<b[j] then
        begin
          Temp:=b[j-1];
          b[j-1]:=b[j];
          b[j]:=temp;
          temp:=j;
          for k:=1 to 10 do
           t[k]:=a[temp,k];
          for k:=1 to 10 do
           a[temp,k]:=a[temp-1,k];
          for k:=1 to 10 do
           a[temp-1,k]:=t[k];
        end;
writeln('=================================================');
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   write(a[i,j]:5);
  write(b[i]:4);

 writeln;
 end;
end.