информатика1ё / Лаб4-1 / Вар3

Лабораторная работа № 4.1

Даны два массива

	-0,1	0,05	0,7	0,8	-1,5	0,2	0,4	-1	0,1	1,5
	0,1	0,3	-0,9	0,2	-0,4	0,01	1	-0,25	-0,1	-0,3

Найти:

Вариант 3

Наибольший элемент массива

Составляем программу

DIM Y(10)

DATA 0.1, 0.3, -0.9, 0.2, -0.4

DATA 0.01, 1, -0.25, -0.1, -0.3

FOR I = 1 TO 10

READ Y(I)

NEXT I

MAX = Y(1)

FOR I =2 TO 10

IF Y(I) < MAX THEN MAX = Y(I)

NEXT I

PRINT “ MAX=”; MAX

END

Составляем блок-схему:

НАЧАЛО

I = 1

Ввод

I = I + 1

Да

нет

MAX = Y(10

I = 2

Да

Y(I) < MAX MAX = Y(1)

нет

I = I + 1

Да

нет

ПЕЧАТЬ MAX

КОНЕЦ