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 ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; 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
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.