Уважаемые программисты!!! Помогите пожалуйста решить задачки...

[deform]

Задача 1

Для матрицы а(n, n) найти обратную матрицу. Вывести на печать нижнюю треугольную матрицу в общепринятом виде. N<=8

Задача 2

Вывести на печать элементы целочисленных матриц n(5, 8), m(10,6) кратных 3

Задача 3

Посчитать количество элементов матрицы х(10, 15) и у(20, 12), удовлетворяющих условиям 0<=x(i, j)<=1, 0<=y(i, j)<=1

Задача 4

Вывести график функцыи sin((2x)^(1/2))+cos(x). Диапазон изменения аргумента а=0, b=2Пі. Число точек графика 50.
Пі это всмысле 3,14.....

[Пепел Феникса]

какой язык?
наработки есть?

[mflat]

Задача 3

program ameba;
var
  x: array [1..10, 1..15] of integer;
  y: array [1..20, 1..12] of integer;
  k,i,j: integer;
begin
  k := 0;
  Randomize;
  for i := 1 to 10
   for j := 1 to 15 do
    x[i,j] := Random(10);
  for i := 1 to 20
   for j := 1 to 12 do
    y[i,j] := Random(10);
  for i := 1 to 10 do
   for j := 1 to 15 do
    if (x[i,j]) > 0 and (x[i,j] < 1) then Inc(k);
  for i := 1 to 20
   for j := 1 to 12 do
    if (y[i,j] > 0) and (y[i,j] < 1) then Inc(k);
 WriteLn(k);
ReadLn;
end.

[deform]

Та впринцыпе не важно, можно C++ или паскаль. Наработок на эти задачи еще нет, просто их нам на практике задали 10, те что были попроще я сделал сам, а эти вот решил попросить помощи, потому как уже не успеваю сам и смутно представляю что с этими матрицами нужно творить....

[mflat]

Задача 2

program ameba;
var
  n: array [1..5, 1..8] of integer;
  m: array [1..10, 1..6] of integer;
  i,j: byte;
begin
Randomize;
  for i := 1 to 5 do
   for j := 1 to 8 do
    n[i,j] := random(10);
  for i := 1 to 10 do
   for j := 1 to 6 do
    m[i,j] := random(10);
  for i := 1 to 5 do
   for j := 1 to 8 do
    if n[i,j] mod 3 = 0 then write(n[i,j], ' ');
  for i := 1 to 10 do
   for j := 1 to 6 do
    if m[i,j] mod 3 = 0 then write(m[i,j], ' ');
  ReadLn;
end.

[profi]

Сообщение от mflat

Задача 2

program ameba;
var
  n: array [1..5, 1..8] of integer;
  m: array [1..10, 1..6] of integer;
  i,j: byte;
begin
Randomize;
  for i := 1 to 5 do
   for j := 1 to 8 do
    n[i,j] := random(10);
  for i := 1 to 10 do
   for j := 1 to 6 do
    m[i,j] := random(10);
  for i := 1 to 5 do
   for j := 1 to 8 do
    if m[i,j] mod 3 = 0 then write(m[i,j], ' ');
  for i := 1 to 10 do
   for j := 1 to 6 do
    if n[i,j] mod 3 = 0 then write(m[i,j], ' ');
  ReadLn;
end.

Чуть подправил.

[mflat]

ОЙ, да, простите пожалуйста. Спасибо, profi.

[deform]

Ребята!!! Та вы вообще крутые!!!! Так быстренько и уже 2 задачи и ошибку даж нашли!!!! Спасибище!!!! Вотэто я б с ними парился днями...(((

[mflat]

Если помог, нажмите пожалуйста на весы слева. Я буду благодарен.
Да и кто может решить 1 и 4 задачи напишите пожалуйста решение. Самому стало интересно, как можно решить эти задачи

[Levsha100]

http://ru.wikipedia.org/wiki/%D0%9E%...B8%D1%86%D0%B0
http://window.edu.ru/window_catalog/...=1078&p_page=6