Одномерные и двумерные массивы

[Woxx]

Добрый день форумчане!!!! Тут я столкнулся с массивами презнаться честно я их ваще не понимаю, хотелось бы на примере этих задач понять суть массивов!!!!
Одномерный массив:
Дана последовательность целых чисел, в которой есть нулевые элементы.
Сформировать массив из номеров этих элементов.

Двумерный массив
Дан двумерный массив А. Сформировать двумерный массив В путём возведения в квадрат элементов массива А.

Заранее спасибо!!!!

[p51x]

йа_целый_счетчик_нулевых_элементов = йа_нуль;
йа_цикл_фор йа_целый_счетчик := 1 йа_до йа_колво_элементов делать
  йа_уловие (йа_элемент_с_индексом_йа_целый_счетчик = йа_нуль) йа_инкремент йа_целый_счетчик_нулевых_элементов;

[Hacker19_90]

2)

program forwoxx;
uses crt;
const
    m = 10;
    n = 10;
var
    A, B: array[1..m, 1..n] of integer;
    i, j: integer;
begin
    clrscr;
    writeln ('Введите массив А');
    for i := 1 to m do
        for j := 1 to n do
        Read (A[i, j]);
     Readln;
    for i := 1 to m do
        for j := 1 to n do
        B[i, j] := sqr(A[i, j]);
    writeln ('массив B');
    for i := 1 to m do
        for j := 1 to n do
        write(B[i, j]:4);
     ReadKey;
end.

[DRAgon™]

Чуток подправил

uses crt;
const
    m = 10;
    n = 10;
var
    A, B: array[1..m, 1..n] of integer;
    i, j: integer;
begin
    clrscr;
    writeln ('Введите массив А');
    for i := 1 to m do begin
        for j := 1 to n do
        Read( A[i, j]);
     Readln;
    for i := 1 to m do
        for j := 1 to n do
        B[i, j] := sqr(A[i, j]);
    writeln ('массив B');
    for i := 1 to m do
        for j := 1 to n do
        write(B[i, j]:4);
  end;
end.

[DRAgon™]

хатя и так правильно,невнимательно посмотрел

[Woxx]

Спасибо большое, век не забуду!!!

[Hacker19_90]

1)

program forvanya;
uses crt;
const
    m = 10;
var
    posl: array[1..m] of integer;
    mass: array[byte] of integer;
    i: integer;
    kol: integer;
begin
    clrscr;
    writeln ('Введите последовательность:');
    for i := 1 to m do
        Read( posl[i]);
    Readln;
    kol := 0;
    for i := 1 to m do
    begin
         if posl[i] = 0 then
         begin
              Inc(kol);
              Mass[kol] := i;  
         end;
    end;
    writeln ('номера нулевых');
    for i := 1 to kol do
        write(mass[i]:4);
    ReadKey;
end.

[Woxx]

Спасибо, это работает

[Carbon]

Ну как, теперь понятна суть массивов?

[Gambler]

Ага ))) Понятна. Завтра по строкам задачки будете решать. )))