Turbo Pascal

[Cybernetik788]

круто)спс)...а с екселем задница...я там не пойму как формулыы набирать

[Cybernetik788]

он вечно ошибку выдает(

[ROMA2PVT]

Эксель эт не паскаль.Ишещь в функциях нужную да вставляешь.Делов то.

[Cybernetik788]

Да,но вот по первой программе я тестил...9 различных значений делал...он почему то в ячейку где результат должен был высветится ничего не выводил...

[Филантроп]

смотрим пост №2 там задачи с 3 по 9

[ROMA2PVT]

Филантроп офигеть.Удивляюсь твоему терпению.

[Филантроп]

10

program mas4;
var b,c:array [1..100] of integer;
i,n,l:integer;
begin
l:=0;
readln(n);
for i:=1 to n do
readln(b[i]);
writeln;
for i:=1 to n do
write(b[i]:4);
writeln;
for i:=1 to n do
if b[i]>0 then begin l:=l+1;c[l]:=b[i];end;
for i:=1 to l do
write(c[i]:4);
readln;
end.

ну и 11

program mas5;
var b:array [1..100] of integer;
i,n,l:integer;
begin
readln(n);
for i:=1 to n do
readln(b[i]);
writeln;
for i:=1 to n do
write(b[i]:4);
writeln;
l:=b[1];
for i:=1 to n do
if b[i]<l then l:=b[i];
writeln('min=',l);
for i:=1 to n do
if b[i]=l then write(i:4);
readln;
end.

нерешенные: 2(ни черта не видно) и 4a (c комплексными числами неохота возиться за так)

[Cybernetik788]

Ну вы гении народ вообще

[Cybernetik788]

Филантрол скажи пожалуйста в задании 10 и 11...в каком формате числа вводить...я ввожу а он сразу пишет программа завершена.

[ROMA2PVT]

Филантроп скажи пожалуйста в задании 10 и 11...в каком формате числа вводить...я ввожу а он сразу пишет программа завершена.

Извиняюсь я не Филантроп но отвечу.Действительные числа,т.е. целые.Сначала указываешь их ко-во (n) а далее вводишь сами числа.