Помогите найти сумму

[linar838]

помогите решить 1 задачку

[Аватар]

  r:=2*z;  
  s:=r;
  k:=2;
  while Abs(r)>Eps do begin
    r:=-r*4*z*z/(2*k-1)/(2*k-2);
    s:=s+r;
    Inc(k);
  end;

думаешь поможет?

[linar838]

незнай может и поможет

[challengerr]

2 задание

program c; 
uses crt, math;

procedure f;
var
i, j, n: byte;
a: array[1..20, 1..20] of integer;
min, mi: 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;
min := a[1, 1];
mi := a[1, 1];

for i := 1 to n do
for j := 1 to n do
if a[i, j] < min then 
min := a[i, j];

for i := 1 to n do
for j := 1 to n do
if a[i, j] < mi then
begin
if a[i, j] > min then
mi := a[i, j];
end;

write(min);
write(' ');
write(mi);
write(' ');

end;

begin
f()
end.

pas

[linar838]

не 1 работает программа

[Вадим Мошев]

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

не 1 работает программа

Вам надо там объявить переменные, обеспечить ввод исходных и вывод результирующих данных