Восстанови хронологическую последовательность событий. изобретение магнитофона первая запись с фонографа демонстрация первого кинофильма появление первых лазерных дисков изобретение фотографии

//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.

1. Консольное приложение:

Module Module1

    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