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

[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 j:=1 to 10 do
 begin
  b[j]:=0;
   for i:=1 to  10 do
     b[j]:=b[j]+a[i,j];
 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[k,temp];
          for k:=1 to 10 do
           a[k,temp]:=a[k,temp-1];
          for k:=1 to 10 do
           a[k,temp-1]:=t[k];
        end;
writeln('=================================================');
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   write(a[i,j]:5);
 writeln;
 end;
writeln('=================================================');
for i:=1 to 10 do
 write(b[i]:5);
end.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n,k: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;
k:=0;
for i:=1 to n do
 if (UpCase(a[i][1])=UpCase(a[i][length(a[i])]))and(UpCase(a[i][1])='A') then begin
                                         inc(k);
                                          writeln(a[i]);
                                        end;
writeln(k);
end.

Остальное сами

[oblachko]

Мне действительно нужна помошь люди=(

[Sasha_Smirnov]

помоЩь
а своя-то где мощь...

[oblachko]

У меня просто не хватает времени, т.к. готовлюсь к чемпионату (я спортсмен и мощь моя всегда со мной). Да еше препод напрягает.Я буду очень признателен вам, если вы мне поможете.

[Lavron]

alex_fcsm
Спасибо за это! Я на оставшиеся выделю время, просто сессия...понимаете? У самого меня с математикой еще проблемы со школы еще...подтянуть хочу, и английский...в общем понимаете ...ОТ СЕССИИ ДО СЕССИИ ЖИВЕТСЯ СТУДЕНТУ ВЕСЕЛО!...зато результат видите на моем примере... СПАСИБО! Я УЖЕ ГОВОРИЛ ЧТО ВЫ ПОМОГЛИ НЕСКОЛЬКИМ ЛЮДЯМ?! Наверное излишне будет вам говорить что вы можете гордиться собой и т.д., т.к. вы и так знаете что вы хороший программист!

[Lavron]

Sinet06 слушайте, по моему если делаеш переворот матрицы "а" по главной или по побочной диоганали то порядок то другой будет...ну значит это уже не матрица а, а матрица b. Но я могу ошибаться...

[[VIP]MAX]

Если вам не трудно решите мне задачку.
Вводится массив 4х4, в нем поменять строки k и n поменять местами,
k и n вводятся с клавиатуры(от 1 до 4).
За раннее спасибо!
Если можно отправьте мне решение на мыло falconPAT@mail.ru

[Black_Angel]

Помогите решит задачу по паскалю очень прошу!!!

Дана геометрическая прогресия 3,6,12,24,... Составить схему алгоритма и написать програму для вычисления суммы 13 её членов.

[Dj_smart]

Эдакая автоматическая система по решению задач. Таких как Вы знаете сколько? И если всем подряд помогать то можно загрузнуть в этом болоте. Данный форум предназначен для помощи тем, кто действительно в этом нуждается. И если не умеете кодить, зачем же тогда полезли в программисты???

ЗЫ. Простите за невежество, неудержался.