Решите в ! 1. найти разность между максимальным и минимальным числом из n введенных чисел.
175
318
Ответы на вопрос:
Var a: array[1..100] of integer; i,n,max,min: integer; begin writeln('skolko elementov'); readln(n); for i: =1 to n do begin write('a[',i,']='); read(a[i]); end; max: =a[1]; min: =a[1]; for i: =1 to n do if a[i]> max then max: =a[i]; for i: =1 to n do if a[i]< min then min: =a[i]; writeln('max - min =' ,max-min); end.
Var a, b, c: real; begin write('введите a, b и c: '); readln(a, b, c); if (b < c) and (a < b) then begin a : = 2 * a; b : = 2 * b; c : = 2 * c; end else begin a : = -a; b : = -b; c : = -c; end; writeln(a, ' ', b, ' ', c); end.
Популярно: Информатика
-
КостянЕрмаков2303.03.2023 18:19
-
EminRoth06.01.2021 04:30
-
lybabibrka10.07.2021 10:57
-
tairovazukhra20.01.2020 01:26
-
SaminaR01.09.2022 11:55
-
тикон301.12.2021 13:20
-
famousgirl20.01.2022 06:06
-
lisopat01.10.2022 11:29
-
Машка415510.11.2020 12:13
-
Kirra2412.07.2022 14:00