помогите

[linar838]

помогите зделать программу новая фотография
[IMG][/IMG]

[rrrFer]

Там ничего не видно. Я разглядел только какой-то квадрат с закрашенным углом.
Картинки выкладывай на форум, не только лишь все будут переходить по ссылке.

[Stilet]

Может это картинка в 3D? Очки нужны специальные.

[Аватар]

Интересно, почему студенты думают, что есть только один ЯП, тот, на котором им сделать чего-то нужно?

[challengerr]

Вторая. Работает или нет, не знаю.

program c; 
uses crt, math;

procedure f;
var
i, j, k, n: byte;
a: array[1..20, 1..20] of integer;
max: byte;

begin
writeln('Введите n : '); readln(n);

for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j]:= random(100);
write(a[i, j]);
write(' ');
end;
writeln;
end;

max := a[1, n];
k := 0;

for i := 1 to n do
begin
for j := n-k to n  do
if a[i, j] > max then 
max := a[i, j];
k:= k + 1;
end;


writeln;
writeln(max);
writeln;

end;

begin
f()
end.

[newerow1989]

const n=15;
var i,s:integer;
    p:array[1..n] of integer;

function summ(n:integer):integer;
var i:integer;
begin
   Result:=0;
   For i:=1 to n do
      Result:=Result+p[i];
end;

begin
   Randomize;
   s:=1;
   For i:=1 to n do
   begin
      p[i]:=Random(20);
      Write(p[i],'  ');
      s:=s*summ(i);
   end;
   Writeln('');
   Writeln(s);
   Readln;
end.

Сойдет?