6. В ячейку введена цифри После нажатия клавиши Enter выходит записи, яна Чтобы получить нужный результат нужно выполнить:
a) Bueche TOE HY O DOSTABIIT 3Ty0
b) Вячелку нужно ввест десятичные шоры
c) Нужно изменить формат данных в ячейки в меню Формат- Ячейки
d) Ввести данные заново
1)
const
handsfree = false;
nmax = 50;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 1 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 1 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
sum := 0;
for i := 1 to n do
sum := sum + sqr(a[i]);
writeln('L = ', sqrt(sum));
end.
2)
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a:=ArrRandom(6,-50,50); a.Println;
Writeln('Среднее арифметическое чисел, больших 10: ',
a.Where(x->x>10).Average)
end.
Тестовое решение:
49 -30 -37 14 35 17
Среднее арифметическое чисел, больших 10: 28.75
2. Школьный вариант
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
var
i,s,k:integer;
a:array[1..6] of integer;
begin
Randomize;
s:=0;
k:=0;
for i:=1 to 6 do begin
a[i]:=Random(101)-50;
Write(a[i],' ');
if a[i]>10 then begin
s:=s+a[i]; Inc(k)
end
end;
Writeln;
if k>0 then
Writeln('Среднее арифметическое чисел, больших 10: ',s/k)
else
Writeln('Нет чисел, больших 10')
end.