Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все
Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все положительные элементы в одномерный массив. Вывести одномерный массив.
Задать свой вопрос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]gt;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.
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]gt;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.
Валерий Паханый
А в задачке можно указать, что надобно в VB!!!!!!!
Гольденштейн
Людмила
Извините, буду знать, помогите ещё раз пожалуйста сделать Visual Basic, очень надобно сейчас, пожалуйста.
Максим Просолкин
Dim z() As Integer, i As Integer, j As Integer, n As IntegerDim k As Integer, m() As Integer, s As Stringn = InputBox("Введите размер матрицы")ReDim z(n, n)ReDim m(n * n)For i = 1 To nFor j = 1 To nz(i, j) = InputBox("Введите элемент матрицы")If z(i, j) > 0 Thenk = k + 1m(k) = z(i, j)End IfNextNextFor j = 1 To ks = s m(j) " "NextMsgBox s
Katjusha
Спасибо большое.
Александра
Вычислить сумму членов ряда для 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 членов ряда, вычисляя каждый член ряда в отдельной подпрограмме. Вывести 1-ые 10 членов ряда
Виолетта Цуркина
А вы нес сможете мне ещё с эти посодействовать пожалуйста?
Антон Ялышев
нет это не могу
Дашенька Букштына
а вот с таким не поможете пожалуйста? Организовать ввод 10 положительных и отрицательных чисел.Вычислить произведение положительных и сумму отрицательных числе VB
Восканьян
София
Dim k As Integer, i As Integer, p As Integer, sum As IntegerDim s As Stringp = 1For j = 1 To 4k = InputBox("Введите элемент")If k > 0 Then p = p * kIf k < 0 Then sum = sum + ks = s k " "NextMsgBox "чисела " + sMsgBox ("произведение положительных числ " p)MsgBox ("сумма отрицательных числ " sum)End Sub
Илюшка Яисямов
Спасибо громадное)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов