//PascalABC.NET 3.1 сборка 1200 begin // создаем массив и заполняем случайными числами от -50 до 50 var a := ArrRandom(ReadInteger('n='), -50, 50); //выводим массив a.Println; //находим индекс максимального элемента var max := a.IndexMax(); // выводим значение макс. элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); // заменяем максимальный элемент минимумом a[max] := -50; //находим индекс второго максимального элемента (на данный момент уже первого) max := a.IndexMax; // выводим значение элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); end.
Sub Main() Dim n, i, s As Integer Console.Write("Введите число N") n = Console.ReadLine s = 0 For i = 1 To n s = s + i * i Next Console.Write(s) n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms: На форме 3 объекта: TextBox1 - для ввода N Textbox2 - для вывода суммы квадратов Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, s As Integer s = 0 For i = 1 To Val(TextBox1.Text) s = s + i * i Next TextBox2.Text = s End Sub End Class
42 ———> 2^5+2^3+2^1 = 101010