решите 2 задачи на паскале

[away]

В матрице E(6,5) выбрать положительные элементы и напечатать: <номер строки>
<количество положительныхэлементов> Если количество положительных элементов в строке больше половины общегоколичества элементов в строке, то все отрицательные нулю элементы превратить в "единицы". Исходные, промежуточные и результативные данные вывести на экран дисплея.

Имеется произвольный текст, состоящий из последовательности литер и цифр общим числом 50 знаков. Составить програму печати с начала строки всех цифр, а затем всех литер, входящих в этот текст.

 

[Vadik(R)]

Твою прогу не фиг делать. Щас за пять сек напечатаю, и тебе в пм отправлю(личные сообщения).

 

[Vadik(R)]

Первая прога:

Program one;
Uses
Crt;
Var
E : Array [1..6,1..5] of Integer;
i,j,n,m,kol : Integer;
Begin
ClrScr;
n:=6;
m:=5;
For i:=1 To n Do
For j:=1 To m Do
Begin
Write('E[',i,',',j,']=');
Read(E[i,j])
End;
ClrScr;
WriteLn('Исходная матрица E:');
For i:=1 To n Do
Begin
For j:=1 To m Do
Write(E[i,j]:4);
WriteLn
End;
For i:=1 To n Do
Begin
kol:=0;
For j:=1 To m Do
If E[i,j]>0 Then kol:=kol+1;
If kol*2>m Then
For j:=1 To m Do
If E[i,j]<=0 Then E[i,j]:=1;
WriteLn('В ',i,'-той строке ',kol,' положительных элементов.')
End;
ReadKey;
ClrScr;
WriteLn('Новая матрица E:');
For i:=1 To n Do
Begin
For j:=1 To m Do
Write(E[i,j]:4);
WriteLn
End;
ReadKey
End.

Вторая прога:

Program Two;
Uses
Crt;
Var
st : String;
i : Integer;
Begin
ClrScr;
Write('st=');
ReadLn(st);				 {
For i:=1 To Length(st) Do
If st[i] in ['0'..'9'] Then Write(st[i]);
For i:=1 To Length(st) Do
If NOT (st[i] in ['0'..'9']) Then Write(st[i]);
Другой вариант твоей проги.
}
For i:=1 To Length(st) Do
If st[i] in ['0'..'9'] Then
Begin
GoToXY(i,WhereY);
Write(st[i]);
Delay(60000)
End;
For i:=1 To Length(st) Do
If NOT (st[i] in ['0'..'9']) Then
Begin
GoToXY(i,WhereY);
Write(st[i]);
Delay(60000)
End;
ReadKey
End.

И почему я знаю паскаль как алгоритмический язык лучше некоторых студентов, зато компоненты на форму кидать не умею как все :blink:

 

[away]

спасибо Вадик! Ты выручил)) завтра сдаюсь! дай пять чуваг :blink:

 

[root]

Для: Vadik®
за одно на

Ссылка скрыта от гостей

мастерство точить :blink: + там еще и деньги платят