Sub Z() 'начало программы с именем Z Dim a As Integer 'создаем ячейку с именем а для целых чисел Dim b As Integer 'создаем ячейку с именем b для целых чисел Dim c As Integer 'создаем ячейку с именем c для целых чисел a = InputBox("Введите A: ") 'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а If a Mod 2 = 1 Then a = a - 1 'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу b = InputBox("Введите B: ") 'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b If b Mod 2 = 1 Then b = b - 1 'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу c = InputBox("Введите C: ") 'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c If c Mod 2 = 1 Then c = c - 1 'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу MsgBox ("A=" & a & "; B=" & b & "; C=" & c) 'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, затем знаки ; C= и число из ячейки с End Sub 'конец программы
//PascalABC.Net 3.0, сборка 1064 type IntArray = array of integer;
var rows, cols: integer; M: array of IntArray;
begin Write('Количество строк и столбцов матрицы: '); Read(rows, cols); var Avg: array of double := new double[cols]; M := new IntArray[rows]; SetLength(Avg, cols); for var i := 0 to rows - 1 do begin M[i] := ArrRandom(cols, -25, 25); M[i].Println(#9) end; for var j := 0 to cols - 1 do Avg[j] := Range(0, rows - 1).Select(x -> M[x, j]).Average; Writeln('Наименьшее среднее по столбцам равно ', Avg.Min) end.
Dim a As Integer 'создаем ячейку с именем а для целых чисел
Dim b As Integer 'создаем ячейку с именем b для целых чисел
Dim c As Integer 'создаем ячейку с именем c для целых чисел
a = InputBox("Введите A: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а
If a Mod 2 = 1 Then a = a - 1
'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу
b = InputBox("Введите B: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b
If b Mod 2 = 1 Then b = b - 1
'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу
c = InputBox("Введите C: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c
If c Mod 2 = 1 Then c = c - 1
'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу
MsgBox ("A=" & a & "; B=" & b & "; C=" & c)
'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, затем знаки ; C= и число из ячейки с
End Sub 'конец программы