'1. Сформировать одномерный массив из восьми вещественных значений. Dim M(8) As Single, i As Integer, s As String For i = 1 To 8 M(i) = Rnd * 20 - 10 s = s + CStr(M(i)) + " " Next MsgBox s
'2. Сформировать двумерный массив из А строк и В столбцов. Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String A = 3 B = 5 ReDim M(A, B) For i = 1 To A For j = 1 To B M(i, j) = Rnd * 20 + 2 s = s + CStr(M(i, j)) + " " Next s = s + vbCrLf Next MsgBox s
'3. Составить программу для определения максимального и минимального элементов двумерного массива. Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String Dim Min As Single, Max As Single A = 3: B = 5 Min = 100: Max = 0 ReDim M(A, B) For i = 1 To A For j = 1 To B M(i, j) = Rnd * 20 + 2 s = s + CStr(M(i, j)) + " " If Max < M(i, j) Then Max = M(i, j) If Min > M(i, j) Then Min = M(i, j) Next s = s + vbCrLf Next s = s + "Max = " & Max & vbCrLf s = s + "Min = " & Min & vbCrLf MsgBox s
'4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива. Dim M(10) As Integer, i As Integer, sum As Integer, s As String, s1 As String For i = 1 To 10 M(i) = Rnd * 20 - 10 s = s + CStr(M(i)) + " " If (M(i) > 0) And (M(i) Mod 2 = 0) Then s1 = s1 + CStr(M(i)) + " ": sum = sum + M(i) Next s = s + vbCrLf s = s + s1 + vbCrLf s = s + "sum = " & sum MsgBox s
begin for i := 1 to 15 do begin write('a[', i, '] = ');readln(a[i]); if i mod 3 = 0 then s := s + a[i]; end; writeln('Сумма элементов, индексы которых кратны 3 = ', s); end.
begin for i := 1 to 15 do begin a[i] := random(100);write(a[i]:4); end; writeln; for i := 1 to 15 do begin if i mod 2 = 0 then a[i] := a[i] * 2; write(a[i]:4); end; end.
var a: array[1..m] of integer; i, n, k, tmp: integer;
begin write('число элементов : '); readln(n); for i := 1 to n do begin write('a[', i, '] = ');readln(a[i]); end; repeat write('Введите к (k<>1 и k<>n)'); readln(k); if (k = 1) or (k = n) then writeln('Ошибка, повторите ввод'); until (k <> 1) and (k <> n); for i := 1 to n do write(a[i]:4);writeln; tmp := a[k - 1];a[k - 1] := a[k + 1];a[k + 1] := tmp; for i := 1 to n do write(a[i]:4); end.
Dim M(8) As Single, i As Integer, s As String
For i = 1 To 8
M(i) = Rnd * 20 - 10
s = s + CStr(M(i)) + " "
Next
MsgBox s
'2. Сформировать двумерный массив из А строк и В столбцов.
Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String
A = 3
B = 5
ReDim M(A, B)
For i = 1 To A
For j = 1 To B
M(i, j) = Rnd * 20 + 2
s = s + CStr(M(i, j)) + " "
Next
s = s + vbCrLf
Next
MsgBox s
'3. Составить программу для определения максимального и минимального элементов двумерного массива.
Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String
Dim Min As Single, Max As Single
A = 3: B = 5
Min = 100: Max = 0
ReDim M(A, B)
For i = 1 To A
For j = 1 To B
M(i, j) = Rnd * 20 + 2
s = s + CStr(M(i, j)) + " "
If Max < M(i, j) Then Max = M(i, j)
If Min > M(i, j) Then Min = M(i, j)
Next
s = s + vbCrLf
Next
s = s + "Max = " & Max & vbCrLf
s = s + "Min = " & Min & vbCrLf
MsgBox s
'4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива.
Dim M(10) As Integer, i As Integer, sum As Integer, s As String, s1 As String
For i = 1 To 10
M(i) = Rnd * 20 - 10
s = s + CStr(M(i)) + " "
If (M(i) > 0) And (M(i) Mod 2 = 0) Then s1 = s1 + CStr(M(i)) + " ": sum = sum + M(i)
Next
s = s + vbCrLf
s = s + s1 + vbCrLf
s = s + "sum = " & sum
MsgBox s