<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
a.Println;
var b:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
b.Println;
var c:=a.Zip(b,(p,q)->(p+q)/2).ToArray; c.Println
end.
<u>Пример</u>
-8.4 -8.3 -0.1 -6.3 9.4
3.3 -7.4 -1.4 9.5 9.6
-2.55 -7.85 -0.75 1.6 9.5
Книга - учебник
книга - справочник
жидкость - бензин
жидкость - молоко
человек - врач
человек - строитель
Var i,n,m,sum:integer;r:real;
Begin
Randomize;
write('Введите количество целых десятичных чисел');
Readln(n);
for i:=1 to n do begin
m:=random(100)-50;
write(m:4);sum:= sum + m;end;
writeln;
r:= sum/n;write('среднее значение ', n,' целых десятичных чисел ',r:8:4);<span>end.</span>