function Mid(var a: V): double; var i, s: integer; begin s := 0; for i := 1 to n do s := s + a[i]; Mid := s / n end;
var x: V; i, j: integer; m: double;
begin Randomize; m := 0; for i := 1 to 5 do begin Writeln('Элементы массива ', i); for j := 1 to n do begin x[i] := Random(100); Write(x[i]:3) end; Writeln; m := m + Mid(x) end; Writeln('Среднее арифметическое пяти массивов равно ', m) end.
Var x,f:real; begin Write('Введите x: '); Readln(x); if (x>-2.4) and (x<5.7) then f:=sqr(x) else f:=4; Writeln('F=',f) end.
var x,f:real; begin Write('Введите x: '); Readln(x); if (x>0.2) and (x<0.9) then f:=sin(x) else f:=1; Writeln('F=',f) end.
var a,b,c:real; begin Write('Введите три числа: '); Readln(a,b,c); Write('Условие ',a,'<',b,'<',c); if (b>a) and (b<c) then Writeln(' выполняется.') else Writeln(' не выполняется.'); Write('Условие ',b,'>',a,'>',c); if (a<b) and (a>c) then Writeln(' выполняется.') else Writeln(' не выполняется.') end.
Crt;
const
n = 10;
type
V = array[1..n] of integer;
function Mid(var a: V): double;
var
i, s: integer;
begin
s := 0;
for i := 1 to n do s := s + a[i];
Mid := s / n
end;
var
x: V;
i, j: integer;
m: double;
begin
Randomize;
m := 0;
for i := 1 to 5 do
begin
Writeln('Элементы массива ', i);
for j := 1 to n do
begin
x[i] := Random(100);
Write(x[i]:3)
end;
Writeln;
m := m + Mid(x)
end;
Writeln('Среднее арифметическое пяти массивов равно ', m)
end.
Тестовое решение:
Элементы массива 1
95 44 54 86 52 39 28 79 29 43
Элементы массива 2
75 55 26 22 12 93 34 60 34 42
Элементы массива 3
55 80 50 54 52 46 85 47 11 86
Элементы массива 4
33 35 5 64 36 66 76 55 24 43
Элементы массива 5
31 63 66 11 88 4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>-2.4) and (x<5.7) then f:=sqr(x)
else f:=4;
Writeln('F=',f)
end.
var
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>0.2) and (x<0.9) then f:=sin(x)
else f:=1;
Writeln('F=',f)
end.
var
a,b,c:real;
begin
Write('Введите три числа: '); Readln(a,b,c);
Write('Условие ',a,'<',b,'<',c);
if (b>a) and (b<c) then Writeln(' выполняется.')
else Writeln(' не выполняется.');
Write('Условие ',b,'>',a,'>',c);
if (a<b) and (a>c) then Writeln(' выполняется.')
else Writeln(' не выполняется.')
end.