Задачи Опции

[aleksandr]

Помогите прогиры??
Я в вобщем еще учусь в школе а тут на тебе начали вести програмировани паскаль посути он мне в будущей професии не нужен так что забивать голову не хочу помогите решеть задачу!!!!
Записать на место отрицательных элементов матрицы нули и вывести на печать в обще принятом виде и учесть если не будет отрицательных чисел не надо нечего делать Матрица квадратная КК порядок К где К<10.
и еще одна:
Модифицировать програму таким образом чтобы вычислять многократно значание функции при изминении аргумента в указаном диапозоне и с задоном шагом X=[0,8..2] шаг X=0,1 Пожалуста помогите!!!

[Altair]

первая

const
 kk=10;
var
 a:array[1..kk,1..kk] of integer;
 i,j,n:integer;
begin
 {заполнение матрицы}
 For i:=1 to n do
 begin
  for j:=1 to n do
  begin 
   If a[i,j]<0 then a[i,j]:=0;
   write(a[i,j]:3);
  end;
  writeln
 end;
end.

[klem4]

На примере функции f(x)=(х в квадрате).

Код

{$n+}
uses crt;
var a,b,h,x:extended;

function f(x:extended):extended;
begin
  f:=sqr(x);
end;

Begin

  clrscr;
  readln(a);
  readln(b);
  readln(h);

  writeln('x':3,'y':6);

  x:=a;
  while x<=b+h/2 do
   begin
      writeln(x:4:1,f(x):6:1);
      x:=x+h;
   end;

  readln;
end.