Оператор GOTO

@TheBranS · Регистрация: 11.04.2017

Author24 — интернет-сервис помощи студентам

Дано 50 вещественных чисел. Определить наибольшую величину из них.
С помощью оператора GOTO

@Alexandr212 · 16.04.2017, 22:41

Откуда числа брать?

@Hitoku · 16.04.2017, 23:51

Pascal

label lab;
var n,max:real;
    i:integer;
begin
  randomize; i:=1;
  max:=random*60-30; writeln(i,' - ',max:0:3);
lab:
  inc(i);
  n:=random*60-30; writeln(i,' - ',n:0:3);
  if n>max then max:=n;
  if i<50 then goto lab;
  write('Максимум: ',max:0:3);
end.

@TheBranS 0 / 0 / 0 Регистрация: 11.04.2017 Сообщений: 10
		1
	Оператор GOTO 16.04.2017, 22:40. Показов 2937. Ответов 2 Метки нет (Все метки) Дано 50 вещественных чисел. Определить наибольшую величину из них. С помощью оператора GOTO 0

@Alexandr212 101 / 97 / 112 Регистрация: 28.11.2016 Сообщений: 528
	16.04.2017, 22:41	2
	Откуда числа брать? 0

	16.04.2017, 23:51

Оператор GOTO

Решение