На моем любимом бейсике Dim A() As Integer, i As Integer, k As Integer, N As Integer Randomize Print "N = "; : Input N ReDim A(N, N) For i = 1 To N For k = 1 To N A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10 Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i Print : Print ' Опускаемся на 2 строки For i = 1 To N For k = 1 To N If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область Rem У области выше главной диагонали номер столбца больше строки Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i End
Задача 1 var M: array [1..9] of integer; sum, i: integer; begin writeln('Massiv:'); Randomize; for i:=1 to 9 do begin M[i]:=random(200)-100; write(M[i], ' '); end; writeln; for i:=1 to 9 do begin if M[i] > 0 then write(i, ' '); sum:=sum+M[i]; end; writeln; writeln('Summa = ', sum); readln; end.
задача 2 var A: array [1..7] of integer; sum, i: integer; begin writeln('Massiv:'); Randomize; for i:=1 to 7 do begin A[i]:=random(20)-10; write(A[i], ' '); end; writeln; for i:=1 to 7 do begin if A[i] > 3 then sum:=sum+A[i]; if i mod 2 <> 0 then write(A[i], ' '); end; writeln; writeln('Summa = ', sum); readln; end.
Dim A() As Integer, i As Integer, k As Integer, N As Integer
Randomize
Print "N = "; : Input N
ReDim A(N, N)
For i = 1 To N
For k = 1 To N
A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10
Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
Print : Print ' Опускаемся на 2 строки
For i = 1 To N
For k = 1 To N
If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область
Rem У области выше главной диагонали номер столбца больше строки
Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
End