1 2 3 4 5 6 7 8 9 10 11 12 13 | input ninput mdim a(n,m),b(n*m){заполнение массива смотри в важном}for i=1 to nfor j=1 to mk=k+1b(k)=a(i,j)nextnextfor i=1 to n*mprint b(i);next |
Тестирование выполнено в программе QB64 ( Скачать )