Задать массив A(N,M) построчно, преобразовать массив

Категория: Basic

2012-01-02 23:12:42

Преобразовать А(N,M) в B(N,M), отсортировав элементы по возрастанию при чтении по строкам, добавить один столбец в массив В(), члены которого являлись бы средними значениями элементов каждой строки, определить число К первых элементов массива А() по строкам сумма, которых больше заданной величины L, вывести числа К и отсортированного массива В() по строкам.

code: #basic

input n,m
input "k=";k
dim a(n,m),b(n,m+1)
'zadanie massiva
s=0
for i=1 to n
s=0
for j=1 to m
input "a(",i,",",j,")=";a(i,j)
s=s+a(i,j)
b(i,j)=a(i,j)
next j
'zapis v pervii stolbec sr. arifm-go
b(i,1)=s/n
's4et4ik k
if s>l then k=k+1
next i
for i=1 to n 
for j=2 to m
for k=j+1 to m+1
'sortirovka
if b(i,j)>b(i,k) then swap(b(i,j),b(i,k))
next k
next j
next i
 
print "k=";k
for i=1 to n
for j=1 to m+1
print b(i,j);
next j
print
next i
end

автор: Abbatik

Поделиться:

Sample Code

категории

Задать массив A(N,M) построчно, преобразовать массив

Похожие статьи: