ПРограммисты Help Pascal!!!

[Катюшка]

Помогите!!!
Дан двумерный массив X[n,m], где значения элементов массива и их количество вводятся с клавиатуры. На экран вывести матрицу в общепринятом виде, среднее арифметическое отрицательных элементов четных строк массива и их количество.

[Хыиуду]

Код: Выделить всё

uses crt;
const M=3;
        N=3;
var i,j:byte;
count,sum:integer;
  x:array[1..N,1..M] of integer;
begin
   count:=0;
   sum:=0;
   for i:=1 to N do 
   for j:=1 to M do
   begin
     writeln('Введите Х[',i,',',j,']');
     readln(x[i,j]);
     if (i mod 2=0) and (x[i,j]<0)
     then
     begin inc(sum,x[i,j]); inc(count); end;
   end;
   clrscr;
   for i:=1 to N do begin
      for j:=1 to M do
         write(x[i,j]:4);
      writeln;
   end;
   writeln ('Количество отрицательных элементов в четных строках - ',count,', их среднее арифметическое - ',sum/count);
end.

Это для Паскаля, в Дельфи придется использовать другие операторы ввода-вывода и явное преобразование типов.
[/code]

[CADE]

Помогите прогу написать на паскале.Очень срочно.
Создать текст типа string. Определить самое короткое слово в каждом
предложении. Собрать их в новый текст, затем удлинить до средней длины
слова дублированием последней буквы.
Зарание спасибо!!!

[Oleg_Rus]

CADE, текст вводится кириллицей или латинницей (по-русски или по-англицки)

[CADE]

без разницы

[Oleg_Rus]

CADE, как найти самое короткое слово в тексте, я тебе кажется показывал (или нет?), а дублирование сделать очень просто:

Ставишь условие If .. Then, где сравниваешь самое длинное слово с текущим.
если оно меньше то к текущему слову прибавляешь последний символ, например,
S[Length(s)]

И все - задача, как я понял, решена.

P.S. объяви отдельную тему, а то уже надоело видеть твои сообщения везде.