Программа на Pascal в Lazarus и программа для одномерного массива целых чисел

[Yegorka]

Всем добрый вечер и заранее спасибо за внимание! Очень нужно решить две задачи (за вознаграждение, я девушка благодарная)

1) Есть матрица двумерная, то есть у каждого элемента есть два индекса, номер строки и номер столбца. Матрица произвольная, но в ней должны быть нулевые элементы. Задача- написать программу, которая бы выводила окно для печати этих нулевых элементов, в окне должны быть написаны индексы нулевых элементов. Все это нужно сделать в программе lazarus.

2) Написать процедуру которая в одномерном массиве целых чисел каждый элемент увеличивается на его номер. Программа выводит массив исходный и после преобразования. Это задание можно сделать без программы, просто набрать текстом.

[VIK_aka_TOR]

1)

randomize;
//заполняем матрицу числами от 0 до 5 и выводим ее
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j] := random(6);
    write(a[i,j] : 3); 
   end;
  writeln; 
 end;

writeln('Индексы нулевых');
for i:=1 to n do
  for j:=1 to m do
   if a[i,j] = 0 then
    writeln('i = ',i,' j = ',j);

2)

writeln('Начальный массив');
 for i:=1 to n do
  writeln('a[',i:2,']= ', a[i]);
writeln('Преобразованный:');
 for i:=1 to n do
   begin
    a[i] := a[i] + i;
    writeln('a[',i:2,']= ', a[i]);
   end;

[Yegorka]

Спасибо! а можно в личку номер телефона Ваш? а то я не умею вебманями пользоваться...

[Yegorka]

В смысле, номер мобильного, чтоб деньги положить. Не подумайте плохого)

[VIK_aka_TOR]

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

Спасибо! а можно в личку номер телефона Ваш? а то я не умею вебманями пользоваться...

собственно не Россия... так что пополнить телефон не получится... примите в таком случае за добрый жест... ну или случаем как нить через терминал кинете...
p.s. а ник как выбирали?

[Yegorka]

От фамилии ник, ничего особенного.
А в вебмани попробую разобраться. Вы из Минска - мой земляк по бабушке)

[Yegorka]

а в первой задаче надо вот это все в точности ввести в программу Лазарус? Извините, я дуб-дубом - сестре помогаю.

[Yegorka]

Тут еще вопрос возник. как описать переменные в первой задаче?

[VIK_aka_TOR]

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

Тут еще вопрос возник. как описать переменные в первой задаче?

const
 n = 10;
 m = 8;
var
  a : array [1..n,1..m] of integer;
  i, j : integer;
begin
randomize;
//заполняем матрицу числами от 0 до 5 и выводим ее
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j] := random(6); 
    write(a[i,j] : 3); 
   end;
  writeln; 
 end;

writeln('Индексы нулевых');
for i:=1 to n do
  for j:=1 to m do
   if a[i,j] = 0 then
    writeln('i = ',i,' j = ',j);
end.

p.s. сейчас лазаруса нету, не на своем компе (если под консолькой то и так запуститься)... но в приципе только прикрутить ввод/вывод данных через компоненты если с формой...
p.p.s. будете гостить у бабушки - пишите)

[Yegorka]

Думаю, она поймет. Спасибо еще раз!