Даны три действительных числа удвойте их,если они окажутся по возрастанию
196
443
Ответы на вопрос:
Var a,b,c: real; begin readln(a,b,c); if (a< b) and (b< c) then begin a: =2*a; b: =2*b; c: =2*c; writeln(a,' ',b,' ',c) end else writeln('числа неупорядочные') end.
1-й создаст массив из 5-и элементов, заполненный вашими вводами с клавиатуры, т.е вам надо будет 5 раз что-нибудь написать.
2-й заполнит массив из 5-и элементов случайными числами в диапазоне от 10 до 20.
Популярно: Информатика
-
hamaturov01.08.2020 22:49
-
RedGirl1228.06.2022 08:41
-
vipyanalukyan10.06.2023 00:46
-
dxkuznecov28.03.2023 06:37
-
nikaz123.08.2022 20:16
-
InvisibleGuеst16.06.2021 21:13
-
klassklassov05.03.2023 09:11
-
milanalive6513.03.2020 03:22
-
aninagalamova24.09.2022 00:56
-
MilkaKamilka503.02.2020 09:04