вторник, 22 ноября 2011 г.

Program examle_1;
var
a: array[1..7] of integer;
i,max,num: integer;
begin
for i:=1 to 7 do
begin
write ('введите элемент массива:');
readln (a[i]);
end;
max:=a[1]; num:=1;
for i:=2 to 7 do
if max< a[i] then begin max:=a[i]; num:=i; end;
write ('максимальный элемент имеет значение:',max,'его номер:',num);
end.