-1

	A	B	C	D	E	F
					MAX=
	-1		-1		min=	-1

Sub massiv()

Dim i As Byte

Dim n As Byte

Dim a() As Single

Dim max As Single

Dim min As Single

Sheets("Лист1").Activate

Range("A1").CurrentRegion.Select

n = Selection.Rows.Count

ReDim a(n)

For i = 1 To n

a(i) = Range("A1").Cells(i, 1).Value

Next i

max = a(1)

For i = 2 To n

If max < a(i) Then

max = a(i)

End If

Next i

min = a(1)

For i = 2 To n

If min > a(i) Then

min = a(i)

End If

Next i

If a(1) > 0 Then

For i = 1 To n

a(1) = a(i) * max ^ 2

Next i

Else

For i = 1 To n

a(1) = a(i) * min ^ 2

Next i

End If

Range("C1:C30").Clear

For i = 1 To n

Range("C1").Cells(i, 1).Value = a(i)

Next i

Range("E1").Value = "MAX="

Range("F1").Value = max

Range("E2").Value = "min="

Range("F2").Value = min

End Sub

Псевдокод

Начало massiv (n, i/ max, min, a(i))

i,n натуральное

max, min вещественное

а() массив вещественное

ввод n

цикл для i=1, n

ввод a(i)

все цикл

max=a(1)

цикл для i=2, n

если max< a(i)

то max= a(i)

все если

все цикл

цикл для i=2, n

если min>a(i)

то min=a(i)

все если

все цикл

если a(1)>0

цикл для i=1, n

a(1)=a(i)*max^2

все цикл

иначе цикл для i=1, n

a(1) = a(i) * min ^ 2

все цикл

вывод а(1)

все если

вывод max, min,

Конец massiv.

начало

Ввод n

i=1, n

Ввод A(i)

Max =A(1)

i=2, n

max<A(i)

Max=A(i)

i=2, n

min>A(i)

Min=A(i)

Min =A(1)

Max, Min

Конец

A(1)>0

A(1)=A(i)*max^2

A(1)=A(i)*min^2

А(i)

i=1, n

i=1, n

А(i)

Даны действительные числа а₁, а₂.... а_n, n £ 30. Умножить все члены массива А на квадрат его наибольшего члена, если а₁ > 0 и на квадрат его наибольшего члена, если а₁ £. Вычисленный массив вывести на печать.

Дата добавления: 2015-11-04