пятница, 22 февраля 2013 г.

Массивы 10.1

Дан массив целых чисел найти

Максимальный элемент массива и его порядковый номер
Элемент наиболее близкий к среднему арифметическому всех элементов массива

var A:array [1 .. 4 ] of integer;
k,max,s,i:integer;
s1:real;


function maxmas(var b,c:integer):boolean;
var k:integer;
begin


for k:=1 to 4 do begin
if b > c then maxmas:=true end;

end


begin
for k:=1 to 4 do begin
write('Введите А (',k,') ');
readln(A[ k ]); end;
max:=1;
for k:=2 to 4 do begin



if maxmas(A[k],A[max])=true then max:=k; end;

for i:=1 to 4 do begin
k:=i+1;
end;
for i:=1 to 4 do begin
s:=s+A[i];
end;
s1:=s/k;
if s1>A[i] then begin
writeln('среднее арифметическое = ',A[i]);
end;

begin
writeln('Максимальный элемент = ', A [ max ] );
writeln('Его порядковый номер = ', max);
end;
end.