2 Задачи: двумерный массив; строки

[Student1988]

1)Дана квадратная матрица A(N, N). Записать на место отрицательных элементов матрицы нули, а на место положительных — единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде.
2)Дана строка, содержащая текст. Найти количество слов, начинающихся с буквы Л.

[MrVenom]

напиши ася: два-семь-0-девять-2-два
или на мыло MrVenom87[гав-гав]yandex.{tochka}ru

[Naeel Maqsudov]

Вы не указали на каком языке нужны программы

[Student1988]

Paskal
помогите

[Naeel Maqsudov]

1)

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

const
  n=6;
var
  a:array[1..n,1..n] of integer;
  i,j:1..n;
begin
  {заполнение}
  for i:=1 to n do for j:=1 to n do a[i,j]:=random(101)-50;
  {вывод}
  writeln('исходный массив');
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:6);
    writeln;
  end;  
  {замена}
  for i:=1 to n do for j:=1 to n do if a[i,j]<0 then a[i,j]:=0;
  {вывод}
  writeln('после замены');
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:6);
    writeln;
  end;  
  {вывод}
  writeln('треугольная');
  for i:=1 to n do begin
    for j:=1 to i do write(a[i,j]:6);
    writeln;
  end;  
end.

[Naeel Maqsudov]

2)

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

const
  letters=['A'..'Z','a'..'z','А'..'Я','а'..'я'];
var
  s:string;
  n,i:integer;
begin
  write('Введите текст:'); readln(s);
  n:=0;
  for i:=2 to length(s) do if not (s[pred(i)] in letters) and (s[i] in ['Л','л']) then inc(n);
  if n=0 
    then writeln('В тексте нет слов на Л')
    else writeln('Количество слов на Л - ',n);
  writeln('Нажмите Enter');
  readln;  
end.

[Ksush]

Здравствуйте!Помогите решить задачу,пожалуйста..
Даны две вещественные матрицы А и В размерности nxm.Вывести на экран элементы матрицы А,не входящие в матрицу В.
Спасибо заранее..

[CoderGirl]

icq 625127032
e-mail: valeri.marquise.des.anges@gmail.com
valeria.glinskaya@mail.ru
Сделаю недорого!