Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все...

Question

Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все положительные элементы в одномерный массив. Вывести одномерный массив.

Answer 1

 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.

Comments

А в задаче можно указать, что надо в VB!!!!!!!

---

Извините, буду знать, помогите ещё раз пожалуйста сделать Visual Basic, очень надо сегодня, пожалуйста. 

---

Dim z() As Integer, i As Integer, j As Integer, n As Integer
Dim k As Integer, m() As Integer, s As String
n = InputBox("Введите размер матрицы")
ReDim z(n, n)
ReDim m(n * n)
For i = 1 To n
For j = 1 To n
z(i, j) = InputBox("Введите элемент матрицы")
If z(i, j) > 0 Then
k = k + 1
m(k) = z(i, j)
End If
Next
Next
For j = 1 To k
s = s & m(j) & " "
Next
MsgBox s

---

Спасибо большое.

---

  Вычислить сумму членов ряда для x=П/3 (MathCad, QBasic) 

S=sinx-sin2x/2^3+sin3x/3^3+sin4x/4^3 ........ (-1)^n+1 *sin(nx)/n^3

Результат сравнить с функцией y=x(n^2-x^2)/12 

Вычислить первые 10 членов ряда, вычисляя каждый член ряда в отдельной подпрограмме. Вывести первые 10 членов ряда  

---

  А вы нес можете мне ещё с эти помочь пожалуйста?

---

нет это не могу

---

а вот с таким не поможете пожалуйста? Организовать ввод 10 положительных и отрицательных чисел.Вычислить произведение положительных и сумму отрицательных числе VB 

---

Dim k As Integer, i As Integer, p As Integer, sum As Integer
Dim s As String
p = 1
For j = 1 To 4
k = InputBox("Введите элемент")
If k > 0 Then p = p * k
If k < 0 Then sum = sum + k
s = s & k & " "
Next
MsgBox "чисела " + s
MsgBox ("произведение положительных числ " & p)
MsgBox ("сумма отрицательных числ " & sum)
End Sub

---

Спасибо огромное)