Задание по паскалю

[IIIram]

Народ срочно нужно написать программу в ABC паскаль

[whatever]

Если свои попытки не предпренимались, то только за денюшку.

Могу с этим помочь, skype: skull_negodue

[Sciv]

Уважаемый, а что, фотографию перед загрузкой повернуть Заратустра не позволил?

[IIIram]

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

Если свои попытки не предпренимались, то только за денюшку.

Могу с этим помочь, skype: skull_negodue

не могу добавить в скайп не ищет и сколько выйдет такая программа?

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

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

Уважаемый, а что, фотографию перед загрузкой повернуть Заратустра не позволил?

Ну не знаю. Зато страница не искажается.

IIIram, я бы оценил такую программу в 500 рублей.
Skype: Vadim-moshev

[IIIram]

Сообщение от Вадим Мошев

Ну не знаю. Зато страница не искажается.

IIIram, я бы оценил такую программу в 500 рублей.
Skype: Vadim-moshev

у меня она сделана почти там маленькие недоработки остались которые дешевле стоют

шас скину
program puzirik;
const
n=10;
var
a:array [1..10,1..10] of integer;
i,j,number,summ:integer;
begin
{çàïîëíåíèå}
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i=1) then a[i,j]:=j-1 else
a[i,j]:= a[i-1,j]*2;
end;
end;
{ïå÷àòü}
for i:=1 to n do
begin
for j:= 1 to n do write (a[i,j]:5);
writeln;
end;
{ñëîæíîå óñëîâèå}
writeln('óêàæèòå íîìåð ñòðîêè');
write('number= ');
readln(number);
if (number<1) or (number>10) then
writeln('òàêîé ñòðîêè íåò')
else
begin
for j:=1 to n do write('a[number,n+1-j]:5');
end;
{ñóììà ýëåìåíòîâ ñòðîêè}
for i:=1 to n do
begin
for j:=2 to n do
a[i,1]:=a[i,1]+a[i,j];
end;
{ïå÷àòü}
for i:=1 to n do
begin
for j:= 1 to n do write (a[i,j]:5);
writeln;
end;
end.

[BDA]

У вас же даже неправильно заполняется

program puzirik;
const
    n = 10;
var
    a : array [1..10, 1..10] of integer;
    i, j : integer;

function min(a, b : integer) : integer;
begin
    if a > b then
        min := b
    else
        min := a;
end;

BEGIN
    for i := 1 to n do
        for j := 1 to n do
            a[i, j] := n - min(i, j);
    for i := 1 to n do
    begin
        for j := 1 to n do
            write (a[i, j] : 5);
        writeln;
    end;
END.

Это для затравки
Привыкайте оформлять программы красиво сразу.

[IIIram]

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

У вас же даже неправильно заполняется

program puzirik;
const
    n = 10;
var
    a : array [1..10, 1..10] of integer;
    i, j : integer;

function min(a, b : integer) : integer;
begin
    if a > b then
        min := b
    else
        min := a;
end;

BEGIN
    for i := 1 to n do
        for j := 1 to n do
            a[i, j] := n - min(i, j);
    for i := 1 to n do
    begin
        for j := 1 to n do
            write (a[i, j] : 5);
        writeln;
    end;
END.

Это для затравки
Привыкайте оформлять программы красиво сразу.

эт уже готовая?

[IIIram]

BDA
можешь помочь 2 пункт сделать и 3 еше

[BDA]

IIIram, пожалуй, бесплатно нет. Так как приведенное "ваше" решение является другим вариантом данного задания, а не попытками решить этот вариант.