Var I,j:integer;

a:array [1..8] of real;

st:Real;

begin

for i:=1 to 8 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

st:=0;

for i:=1 to 8 do

st:=st+a[1];

st:=st/2;

j:=0;

writeln('chisla > st');

for i:=1 to 8 do

begin

if a[i]>st then

begin

writeln(a[i]:10:3);

j:=j+1;

end;

end;

writeln('kol-vo chisel > st=',j);

j:=0;

writeln('chisla < st');

for i:=1 to 8 do

begin

if a[i]<st then

begin

writeln(a[i]:10:3);

j:=j+1;

end;

end;

writeln('kol-vo chisel < st=',j);

end.

2. Задать двумерный массив размером 4*3. Просуммировать элементы его столбцов. Результаты представить в виде одномерного массива размером 3. Вывести исходный массив в виде таблицы, полученный в виде строки.

program bil62;

var i,j,k:integer;

a:array [1..4,1..3] of real;

b:array [1..4] of real;

begin

for i:=1 to 4 do

for j:=1 to 3 do

begin

write('wwedite a[',i:2,',',j:2,']=');

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 3 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

writeln;

end;

writeln('noviy massiv');

for i:=1 to 4 do

begin

b[i]:=a[i,1]+a[i,2]+a[i,3];

write(b[i]:5:3,' ');

end;

end.

Билет 17.

1.Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть выводы данных на дисплей.

program bil62;

Var I,j:integer;

a:array [1..4] of real;

min,max:Real;

begin

for i:=1 to 4 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

min:=a[1];

for i:=1 to 4 do

if min>=a[i] then min:=a[i];

writeln('min=',min:10:3);

max:=a[1];

for i:=1 to 4 do

if max<=a[i] then max:=a[i];

writeln('max=',max:10:3);

end.

2. Задать двумерный массив размером 4*4. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.

program bil72;

Var I,j:integer;

a:array [1..4,1..4] of real;

begin

for i:=1 to 4 do

for j:=1 to 4 do

begin

write('wwedite a[',i:2,',',j:2,']=');

readln(a[i,j]);

end;

writeln('syariy massiv');

for j:=1 to 4 do

begin

write(a[1,j]:5:3,' ');

write(a[2,j]:5:3,' ');

write(a[3,j]:5:3,' ');

write(a[4,j]:5:3,' ');

writeln;

end;

writeln('zadat stolbez');

readln(i);

for j:=1 to 4 do

begin

writeln(a[i,j]:5:3,' ');

end;

writeln;

writeln('zadat stroku');

readln(j);

for i:=1 to 4 do

begin

write(a[i,j]:5:3,' ');

end;

writeln;

end.

Билет 18.

1.Ввести с клавиатуры 3 числа. Найти среди них число, расположенное между наименьшим и наибольшим. Предусмотреть выводы данных на дисплей.

program bil72;

Var I,j:integer;

a:array [1..3] of real;

min,max:Real;

begin

for i:=1 to 3 do

begin

write('wwedite a[',i:2,']=');

readln(a[i]);

end;

min:=a[1];

max:=a[1];

for i:=2 to 3 do

begin

if min>=a[i] then min:=a[i];

if max<=a[i] then max:=a[i];

end;

j:=0;

for i:=1 to 3 do

if (a[i]>min)and(a[i]<max) then

begin

writeln('srednie ',a[i]:10:3);

j:=j+1

end;

if j=0 then writeln('srednego net');

end.

2. Задать двумерный массив размером 5*5. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.

program bil182;