help задача pascal двум массив

[ROMA2PVT]

Графическая схема это блок-схема вашего задания.Сделанная в ворде или где нить ещё.А переменные это то что находится в секции объявления переменных т.е. в Var.
Вам именно это задание нужно которое здесь написано?

[ICE_LADY]

ага...именно то, что я писала!!!! блин, не получается вставить в окно синенькое...иероглифы(((

[ROMA2PVT]

Program Massiv;
Uses crt;     {подключение модуля CRT}
Var
  B:array [1..100,1..100] of integer; {массив}
  a:array [1..100] of integer;     {массив}
  i,j,k:integer; {переменные счетчики}
  n,m:integer;  {количество строк и столбцов массива}
BEGIN
 clrscr;  {очистка экрана}
   write('Введите количество строк N: ');
    readln(n);
   write('Введите количество столбцов M: ');
    readln(m);
    writeln('Исходный массив: ');
    randomize;
    for i:=1 to n do
      begin
        for j:=1 to m do
        begin
           b[i,j]:=random(100);
           write(b[i,j]:5);
        end;
           writeln;
      end;
        k:=0;
        writeln('Одномерный результирующий массив: ');
           for j:=1 to m do
           for i:=1 to n do
           begin
              k:=k+1;
              a[k]:=b[i,j];
           end;
           for k:=1 to n*m do
           write(a[k]:4);
    readln;
end.

Вот оно сделано попроще.

[ROMA2PVT]

Исходник в архиве.

[ICE_LADY]

уХ ты))) получилось))) ты мой герой...теперь сохранять??? Там всякие кампиляции и т.д есть!!!!

[ROMA2PVT]

Хех!Конечно сохранять.Комбинации клавишь для запуска я думаю вы знаете.

[ICE_LADY]

для запуска чего????

[ROMA2PVT]

Программы в TP конечно же.

[ICE_LADY]

пуск-запустить? Он пишет файла system нет. А есть инструкция к этому монстру???

[ROMA2PVT]

Синее окно компилятора появляется?