Нужна помощь с паскалем

Нужна помощь в написании программы на Pascal. Двумерный массив

Дана матрица A[10,10] чисел от 1 до 99
1) Записать матрицу
2) Определить сумму элементов главной диагонали
3) Обнуление (A[I,j]=0) любого элемента по его индексам
4) Реализовать определение суммы элементов любого столбца или любой строки по запросу

 

мля ппц) попросите у одногруников)

 

:D Да они все такие же.. Почти все или покупают задачи или на форумах спрашивают :) Просто платить тем, кого предлагают я принципиально не стану :)

 

Ребят, помогите :)

 

Я могу, напиши мне в скайп

 

Был бы c++ я бы с удовольствием , а к паскалю сори на км не подойду)

 

Код:

это ведь фигня :)
в скайп стукани напишу ща по бырику.
ладно, написал в силу своих знаний:

Код:

var
  a: array[1..10, 1..10] of integer;
  i, j, k, l, m, t, y: integer;

function summ(x: integer): integer;//строчки
var
  k, i, j: integer;
begin
  k := 0;
  for i := x to x do 
  begin
    for j := 1 to 10 do 
    begin
      k := k + a[i, j];
    end;
  end;
  summ := k;
end;

function summ1(x: integer): integer;//столбца
var
  k, i, j: integer;
begin
  k := 0;
  for i := 1 to 10 do 
  begin
    for j := x to x do 
    begin
      k := k + a[i, j];
    end;
  end;
  summ1 := k;
end;

begin
  k := 0;
  randomize;
  for i := 1 to 10 do 
  begin
    for j := 1 to 10 do 
    begin
      a[i, j] := random(100);
      write(' ', a[i, j]);
    end;
    writeln;
  end;
  
  for i := 1 to 10 do   //сумма
  begin
    for j := i to i do 
    begin
      k := k + a[i, j];
    end;
    j := j + 1;
  end;
  writeln('Сумма=', k);
  writeln('столбец или строчку?(если столбец то 1,если строчку то 0)');
  readln(t);
  writeln('Введите номер столбца или строчки');
  readln(y);
  if t = 0 then writeln('сумма строчки=', summ(y)) else writeln('сумма столбца=', summ1(y));
  writeln('что обнулить?');
  readln(l, m);
  a[l, m] := 0;
end.

зы: Заполняется рандомом, заменишь. Надеюсь умеешь

 

freezee, спасибо :) Вроде правильно :) правда, написал уже в таком виде :

Спойлер

type
arr = array [0..9, 0..9] of integer;

var
B: arr;
i, j, sum, sumd, k, x: integer;

procedure st(A: arr; k: integer; var sum: integer);
var
i, j: integer;
begin
for i := 0 to 9 do
for j := k to k do
sum := sum + A[i, j];

writeln('Сумма ', k, '-го столбца: ', sum);
end;

procedure str(A: arr; k: integer; var sum: integer);
var
i, j: integer;
begin
for i := k to k do
for j := 0 to 9 do
sum := sum + A[i, j];

writeln('Сумма ', k, '-й строки: ', sum);
end;

begin
x := 0;
sum := 0;
sumd := 0;
for i := 0 to 9 do
for j := 0 to 9 do
begin
B[i, j] := random(99)+1;
sumd := sumd + B[i, i];
end;

for i := 0 to 9 do
begin
for j := 0 to 9 do
write(B[i, j]:4);
writeln;
end;

writeln('Сумма элементов главной диагонали:', sumd);
writeln('1.Сумма строки');
writeln('2.Сумма столбца');
write('Выберите вариант: ');
readln(x);
case x of
1:
begin
Write('Введите номер строки: ');
readln(k);
str(B, k, sum);
end;
2:
begin
Write('Введите номер столбца: ');
readln(k);
st(B, k, sum);
end;
end;

writeln('Введите индексы.');
write('Строка: ');
readln(i);
write('Столбец: ');
readln(j);
B[i,j]:=0;

for i := 0 to 9 do
begin
for j := 0 to 9 do
write(B[i, j]:4);
writeln;
end;
end.

Но твой вариант мне нравится больше :)

P.S если что, можно к тебе обратиться ?)

 

конечно, в лс :)

Спойлер

от плюса не откажусь :3