Решить по программированию, используя, а) оператор ветвления б) оператор цикла написать программу нахождения наибольшего из пяти чисел, вводимых с клавиатуры. pascal
137
266
Ответы на вопрос:
Разветвляющийся алгоритм var a,b,c,d,e: integer; begin writeln('введите значения переменных'); readln(a,b,c,d,e); if (a> b) and (a> c) and (a> d) and (a> e) tnen writeln('наибольшее из 5 чисел ', a) else if (b> a) and (b> c) and (b> d) and (b> e) tnen writeln('наибольшее из 5 чисел ', b) else if (c> a) and (c> b) and (c> d) and (c> e) tnen writeln('наибольшее из 5 чисел ', c) else if (d> a) and (d> b) and (d> c) and (d> e) tnen writeln('наибольшее из 5 чисел ', d) else writeln('наибольшее из 5 чисел ', e); end. циклический алгоритм type vector=array [1..10] of integer; var m: integer; a: vector; i: byte; begin writeln('введите значения переменных'); for i: =1 to 5 do readln (a[i]); for i: =1 to 5 do if a[i]> a[i+1] then m: =a[i]; writeln('наибольшее число ', m); end.
Популярно: Информатика
-
Mint23103.02.2021 07:35
-
Ulia20902.01.2021 18:57
-
ellapetrovna03.10.2021 02:03
-
alibaevaalina14602.11.2020 22:27
-
Зозяська15.02.2021 18:33
-
SherlockloveMoriarty15.09.2021 22:00
-
Коsмoc06.06.2023 09:45
-
vipaldybaeva10.05.2023 10:36
-
kkmla12329.01.2020 20:46
-
DoVInterER22.09.2020 09:18