<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.
<u>Пример</u>
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401
Среднее значение округляется до целого(дробная часть отсекается)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int a[10];
int sum = 0;
cout << "Enter the growth of ten people:" << endl;
for(int i = 0; i < 10; i++)
{
cin >> a[i];
sum += a[i];
}
cout << "\nThe total growth of all people equal to " << sum << "sm"
<< "\nThe average growth of all people equal to " << (sum / 10) << "sm" << endl;
return 0;
}
Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
Ответ:
ABDEF = 17
Объяснение:
ABDEF = 5 + 3 + 2 + 7 = 17
ABCEF = 5 + 9 + 4 + 7 = 25
ABEF = 5 + 8 + 7 = 20