СОСТАВИТЬ ПРОГРАММУ В С++ В норме

ударный объем сердца– Vудар =6*10^-5

м3

, среднее артериальное давление P= 13000 Па,

плотность крови D = 1.05*10^3 кг/м3 ,скорость потока крови С = 0.5 м/с. Если, при

заданных параметров результат будет равен А= 0.94545 жоуль, программа составлена.

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

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