2 задачи по паскалю,массивы(со схемой)

[lexa26]

1)сформировать случайным образом массив y(20) и x(20) заменить отрицательные элементы массива x(i) квадратами элементов массива y(i).
2)найти количество отрицательных элементов и количество положительных элементов в матреце S(6,6) на её побочной диогонали, матрица построина случайно.
заранее Спасибо!

[Pein95]

program Project2;

{$APPTYPE CONSOLE}

const n=20;
var
x,y:array [1..n] of integer;
i,k:integer;

begin
for i:=1 to n do
  begin
    x[i]:=random(20);
    y[i]:=random(20);
  end;

for i:=1 to n do
if x[i]<0 then x[i]:=y[i]*y[i];

end.

первая

[T@tali]

На первую задачу

[unbanned]

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

for i:=1 to n do
if x[i]<0 then x[i]:=y[i]*y[i];

end.

первая

неповеришь, но наш препод тебя бы на переделку послал)))

for i:=1 to n do
if x[i]<0 then x[i]:=sqr(y[i]);

end.

и непонятно зачем нужна переменная k

[Pein95]

ну мне ещо до вуза 2 года буду знать)

[unbanned]

вторая

var
  s: array[1..6, 1..6] of integer;
  i, j, k, k1: integer;

begin
  for i := 1 to 6 do 
  begin
    for j := 1 to 6 do 
    begin
      s[i, j] := -10 + random(21);
      write(' ', s[i, j], ' ');
    end;
    writeln();
  end;
  j := 6;
  k := 0;
  k1 := 0;
  for i := 1 to 6 do 
  begin
    if s[i, j] > 0 then k := k + 1;
    if s[i, j] < 0 then k1 := k1 + 1;
    j := j - 1;
  end;
  writeln('кол-во отрицательных:', k1);
  writeln('кол-во положительных:', k);
  if k + k1 <> 6 then writeln('кол-во нулей:', 6 - (k1 + k));
end.

[lexa26]

Спасибо всем, схему не надо я нарисовал